home *** CD-ROM | disk | FTP | other *** search
/ Sampler of Digital Rock Core Information / Sampler of Digital Rock Core Information Open File Report 91-355.ISO / source / coremap.c next >
Encoding:
C/C++ Source or Header  |  1992-01-06  |  113.5 KB  |  5,167 lines
  1. /*  
  2.  
  3.     mapper.c  3/15/89
  4.     updated  12/14/90
  5.  
  6.     mpp1.bat = cl /AL mapper.c vmaputil vimage2 dispio paradise
  7.  
  8.     by Russell A. Ambroziak, Ph. D.
  9.  
  10.     command line options:
  11.  
  12.     /e = EGA
  13.     /v = VGA 640x480x16 colors
  14.     /s = VGA 320x200x256 colors
  15.     /y = Extended VGA 640x400x256 colors
  16.     /x = Extended VGA 640x480x256 colors
  17.  
  18.     /l [path][file_name].[file_type] = output '.LAB' file of points
  19.     /o [path][file_name].[file_type] = output run information file
  20.     /a [path][file_name] = automatic map load on start
  21.     /p [program_name] = passes control to program from point (S)earch
  22.  
  23. */
  24. #include <conio.h>
  25. #include <stdio.h>
  26. #include <math.h>
  27. #include <string.h>
  28. #include "font.h"
  29. #include <process.h>
  30. #include <stdlib.h>
  31. #include <errno.h>
  32.  
  33. #define VGA 0
  34. /*#define NUMBER9  9*/
  35. #define MAX_X 640
  36. /*#define MAX_X 1024*/
  37. #define MENUXC 550
  38. /*#define MENUXC 950*/
  39. /*#define COREOFF 0*/
  40.  
  41. #define DEG_RAD 0.01745329251                /* converts degrees to radians */
  42. #define MAXDO 1000
  43. #define MAX_COLORS 16
  44. #define STR_LEN 100
  45. #define MIN_PIX  0.000
  46. #define TYPE 'p'
  47.  
  48. #define BLACK     0
  49. #define D_GREY    1
  50. #define L_GREY    2
  51. #define WHITE     3
  52. #define BUFF      4
  53. #define L_BUFF    5
  54. #define BROWN     6
  55. #define RED       7
  56. #define ORANGE    8
  57. #define YELLOW    9
  58. #define GREEN    10
  59. #define D_GREEN  11
  60. #define VD_GREEN 12
  61. #define BLUE     13
  62. #define D_BLUE   14
  63. #define MAGENTA  15
  64.  
  65. #define NUM_TYPE 25
  66. #define NUM_SIZE 25
  67. #define NUM_PSIZE 3
  68. #define NUM_FILL  5
  69. #define NUM_SYM  25
  70.  
  71. #define MENU_M  13
  72. #define MENU_L   8
  73. #define MENU_P   6
  74. #define MENU_IV  2
  75. #define SYM_SIZE 11
  76. #define NUM_DP 100
  77. #define B_LINES 48
  78.  
  79. #define F_SIZE 20
  80. #define NAME_SIZE 100
  81. #define S_SIZE 40
  82. #define T_SIZE 15
  83. #define MAX_NUM 300
  84. #define NUM_IMAGE 2
  85.  
  86. char *Menu_iv[MENU_IV]=
  87.     {"zoom",
  88.     "exit image"
  89. };
  90. struct   Color 
  91. { 
  92.     unsigned char  r, g, b; 
  93. }lutc[256],luts[256]; 
  94. int Black=0,White=191,Center=128,Num_Color=256;
  95. int D_Grey=46,L_Grey=191,M_Grey=128;
  96. struct Color Blk={  0,  0,  0};
  97. struct Color D_G={ 46, 46, 46};
  98. struct Color M_G={127,127,127};
  99. struct Color L_G={191,191,191};
  100. struct Color Wht={255,255,255};
  101. unsigned char ActiveLut;
  102. int Img=0,Sample=1,Xc=0,Yc=0,Speed=16,Row,Col,ZoomSample=1;
  103. char *SubType;
  104. struct equipment
  105. {
  106.     int printers;         /* number present */
  107.     int sprinter;        /* serial printer installed?  0=no  1=yes */
  108.     int game;            /* game adapter installed? */
  109.     int sports;            /* number of serial ports */
  110.     int dma;                /* DMA chip installed? */
  111.     int drives;            /* number of disk drives */
  112.     int video;            /* video mode 1=40 color 2=80 color 3=80 B/W */
  113.     int disk;            /* any disk drives? */
  114.     int memory;            /* memory size in Kbytes */
  115. };
  116. extern struct equipment Eq;
  117. extern int GF_Order[MAX_NUM];
  118. extern char GF_String[MAX_NUM][S_SIZE];
  119. struct file_id
  120. {
  121.     char name[S_SIZE];
  122.     long size;
  123.     unsigned date,time;
  124. };
  125. extern struct file_id GF_File[MAX_NUM];
  126. extern int Monitor;
  127. char DepthFile[100]={"colo.dpt"};
  128. float D1[MAX_NUM],D2[MAX_NUM];
  129. struct image_header
  130. {
  131.     int row,col;
  132.     int sample;
  133.     int record_bytes,file_records;
  134.     int record_col_header;
  135.     int row_col_header;
  136.     int header_bytes;
  137.     int imbedded_header;
  138.     int sample_bits;
  139.     char infile[100],image[100],Lut[100],pal_type,label[100];
  140.     int vga_color[256];
  141.     struct Color lut[256],lutc[256];
  142. }Hdr[NUM_IMAGE];
  143.  
  144. int Sym_Size=SYM_SIZE;
  145. char LastMap[STR_LEN],LastFile[STR_LEN],Auto=0;
  146. char *Exit={"exit"};
  147. float BackBright=1.0;
  148. int NumPath=1;
  149. char Path[NUM_DP][STR_LEN];
  150. char String[STR_LEN];
  151. char String[STR_LEN];
  152. int RawOn;
  153. int FontSize=2;
  154. float PixScale;
  155. char Suffix[20];
  156. FILE *FpLab;
  157. char VideoType='X';
  158. int MaxXs,MaxYs;
  159. char Disk_Dir[100];
  160. char *Menu_V[NUM_TYPE+3];
  161. char *Menu_P[NUM_SYM+3];
  162. char *Menu_M[MENU_M]=
  163. {
  164.     "zoom",                        /*  0 */
  165.     "overlays ON/OFF",        /*  1 */
  166.     "reset",                        /*  2 */
  167.     "Change projection",        /*  3 */
  168.     "Save map",                    /*  4 */
  169.     "Recall map",                /*  5 */
  170.     "cursor mode",                /*  6 */
  171.     "vector plot",                /*  7 */
  172.     "annotate",                    /*  8 */
  173.     "draw lines",                /*  9 */
  174.     "graticule",                /* 10 */
  175.     "point plot",                /* 11 */
  176.     "exit"
  177. };
  178. /*
  179.       0 -- red
  180.      18 -- orange
  181.      34 -- yellow-orange
  182.      50 -- yellow
  183.      68 -- yellow-green
  184.      85 -- green
  185.      95 -- green-cyan
  186.     105 -- cyan
  187.     125 -- blue-cyan
  188.     144 -- blue
  189.     167 -- blue-purple
  190.     190 -- purple
  191.     206 -- magenta-purple
  192.     223 -- magenta
  193.     240 -- red-magenta
  194.     255 -- red
  195. */
  196. unsigned char MaxHues[256][3]=
  197. {
  198. 255,  0,  0,255, 32,  0,255, 42,  0,255, 53,  0,255, 60,  0,255, 68,  0,
  199. 255, 73,  0,255, 80,  0,255, 84,  0,255, 90,  0,255, 94,  0,255,100,  0,
  200. 255,103,  0,255,108,  0,255,112,  0,255,116,  0,255,121,  0,255,124,  0,
  201. 255,128,  0,255,132,  0,255,135,  0,255,139,  0,255,143,  0,255,146,  0,
  202. 255,150,  0,255,154,  0,255,157,  0,255,161,  0,255,164,  0,255,168,  0,
  203. 255,172,  0,255,176,  0,255,179,  0,255,183,  0,255,186,  0,255,190,  0,
  204. 255,194,  0,255,198,  0,255,202,  0,255,206,  0,255,210,  0,255,214,  0,
  205. 255,218,  0,255,222,  0,255,227,  0,255,231,  0,255,236,  0,255,241,  0,
  206. 255,245,  0,255,250,  0,254,255,  0,249,255,  0,244,255,  0,240,255,  0,
  207. 234,255,  0,229,255,  0,224,255,  0,220,255,  0,214,255,  0,209,255,  0,
  208. 204,255,  0,199,255,  0,194,255,  0,190,255,  0,184,255,  0,179,255,  0,
  209. 174,255,  0,169,255,  0,164,255,  0,158,255,  0,152,255,  0,147,255,  0,
  210. 141,255,  0,135,255,  0,130,255,  0,123,255,  0,116,255,  0,109,255,  0,
  211. 102,255,  0, 94,255,  0, 87,255,  0, 78,255,  0, 68,255,  0, 58,255,  0,
  212.  42,255,  0, 23,255,  0,  0,255, 36,  0,255, 58,  0,255, 73,  0,255, 87,
  213.   0,255,101,  0,255,113,  0,255,125,  0,255,135,  0,255,146,  0,255,156,
  214.   0,255,166,  0,255,176,  0,255,186,  0,255,196,  0,255,204,  0,255,214,
  215.   0,255,224,  0,255,233,  0,255,243,  0,255,252,  0,248,255,  0,239,255,
  216.   0,230,255,  0,222,255,  0,214,255,  0,207,255,  0,200,255,  0,194,255,
  217.   0,187,255,  0,181,255,  0,174,255,  0,169,255,  0,163,255,  0,157,255,
  218.   0,152,255,  0,146,255,  0,141,255,  0,136,255,  0,131,255,  0,126,255,
  219.   0,121,255,  0,116,255,  0,111,255,  0,106,255,  0,101,255,  0, 96,255,
  220.   0, 92,255,  0, 86,255,  0, 81,255,  0, 77,255,  0, 71,255,  0, 66,255,
  221.   0, 60,255,  0, 53,255,  0, 48,255,  0, 39,255,  0, 32,255,  0, 23,255,
  222.   0,  0,255, 16,  0,255, 23,  0,255, 28,  0,255, 32,  0,255, 36,  0,255,
  223.  39,  0,255, 42,  0,255, 45,  0,255, 48,  0,255, 50,  0,255, 53,  0,255,
  224.  58,  0,255, 60,  0,255, 62,  0,255, 64,  0,255, 66,  0,255, 68,  0,255,
  225.  70,  0,255, 73,  0,255, 75,  0,255, 77,  0,255, 78,  0,255, 81,  0,255,
  226.  83,  0,255, 84,  0,255, 87,  0,255, 89,  0,255, 92,  0,255, 93,  0,255,
  227.  94,  0,255, 97,  0,255, 98,  0,255,101,  0,255,103,  0,255,105,  0,255,
  228. 107,  0,255,109,  0,255,111,  0,255,113,  0,255,115,  0,255,117,  0,255,
  229. 119,  0,255,122,  0,255,124,  0,255,126,  0,255,129,  0,255,131,  0,255,
  230. 134,  0,255,135,  0,255,138,  0,255,140,  0,255,143,  0,255,145,  0,255,
  231. 148,  0,255,151,  0,255,154,  0,255,156,  0,255,160,  0,255,163,  0,255,
  232. 166,  0,255,169,  0,255,173,  0,255,176,  0,255,179,  0,255,183,  0,255,
  233. 188,  0,255,192,  0,255,196,  0,255,200,  0,255,204,  0,255,209,  0,255,
  234. 214,  0,255,220,  0,255,225,  0,255,231,  0,255,237,  0,255,244,  0,255,
  235. 250,  0,255,255,  0,252,255,  0,245,255,  0,238,255,  0,231,255,  0,224,
  236. 255,  0,217,255,  0,210,255,  0,203,255,  0,196,255,  0,190,255,  0,183,
  237. 255,  0,176,255,  0,170,255,  0,163,255,  0,156,255,  0,151,255,  0,144,
  238. 255,  0,137,255,  0,131,255,  0,125,255,  0,118,255,  0,112,255,  0,105,
  239. 255,  0, 98,255,  0, 90,255,  0, 83,255,  0, 77,255,  0, 68,255,  0, 60,
  240. 255,  0, 50,255,  0, 42,255,  0, 28,255,  0, 23
  241. };
  242. char T_Menu_L[NUM_TYPE+3][2][50];
  243. char *T_Menu_P[MENU_P+3][2];
  244. float MaxLat,MinLat,MaxLon,MinLon;
  245. FILE *Fpout;
  246. char SaveName[100]={"mapper.out"};
  247. double ll[MAXDO][2];
  248. int todo[2][MAXDO];
  249. unsigned char MT_Buff[12][MAX_X],Mbuff[B_LINES][MAX_X],Buffer[MAX_X];
  250. long MT_Buff_size=7680,Mbuff_size=30720;
  251. unsigned char Inbuff[BUFSIZ],Inbuff2[BUFSIZ],Outbuff[BUFSIZ];
  252. int SaveVec=0,SNum=1;
  253. int ScreenXs,ScreenYs;
  254. struct board
  255. {
  256.     int row,col,color;
  257. }B_Id;
  258. struct map_screen
  259. {
  260.     int xc,yc,xs,ys;
  261. }map_pos;
  262. struct map_input
  263. {
  264.     char *name,type;
  265.     double indat[6];
  266. }miv;
  267. struct symbol_name
  268. {
  269.     char name[50],filename[50];
  270.     float max_pix,min_pix;
  271.     int color;
  272.     char on;
  273.     char Symbol[SYM_SIZE][SYM_SIZE];
  274. }PlaceFile[NUM_SYM];
  275. struct map
  276. {
  277.     int KeyPlotted;
  278.     char Fill_Name[256][20];
  279.     int Fill_In;
  280.     int Fill_After;
  281.     int Fill_Color[256][2];
  282.     int Max_Fill;
  283.     int Fill_Color_RGB[256][3];
  284.     float Fill_Color_IHS[256][3];
  285.     int Fill_Order[256];
  286.     int Comp_Color[256];
  287.     int Num_Fill;
  288.     float FI_min[NUM_FILL],FI_max[NUM_FILL];
  289.     char Fill_In_Name[NUM_FILL][STR_LEN];
  290.     int White,Num_Color;
  291.     int screen_xs,screen_ys;
  292.     int Num_Type,Out;
  293.     float Pixsize,Clat,Clon,Space;
  294.     int Mback,Text,High,Back,Grat;
  295.     int GratOn;
  296.     int LatLon,Black;
  297.     char Color_Name[MAX_COLORS][30];
  298.     int Color_Val[MAX_COLORS][3];
  299.     int Type;
  300.     int Ns[NUM_TYPE];
  301.     int Mm[NUM_TYPE];
  302.     int NumSymbol;
  303.     int Dummy1;
  304.     int Dummy2;
  305.     char Group_Name[NUM_TYPE][30];
  306.     struct line_name
  307.     {
  308.         char filename[54];
  309.         float max_pix,min_pix;
  310.         int color;
  311.     }MapFile[NUM_TYPE][NUM_SIZE];
  312.     struct place_name
  313.     {
  314.         char *name,*filename;
  315.         float max_pix,min_pix;
  316.         int color;
  317.     }PlaceFile[3][3];    /* size = 18*3*3 = 162 bytes */
  318.     struct Color lut[256];
  319. }M;
  320.  
  321. unsigned char getpt();
  322.  
  323. int fill_in();
  324. int auto_fill_in();
  325. void pix_loc();
  326. int check_point();
  327. int purge();
  328. void remove_boundaries();
  329. void fill_voids();
  330. void set_lut();
  331. int load_miv();
  332. void screen_mm();
  333. int do_menu(char *[],int,int,int,int,int,int,int,int [128][25]); 
  334. int t_do_menu();
  335. int plot_map();
  336. void get_corners();
  337. int tplot_line();
  338. int unplot_line();
  339. char Zoom();
  340. int convert_bin();
  341. int read_control();
  342. int get_color();
  343. char fsplit(char *,char *,char *,char *);
  344. FILE *open_to_read_binary(char *);
  345. FILE *open_to_write_text(char *);
  346. FILE *open_to_write_binary(char *);
  347.  
  348. main(argc,argv)
  349.  
  350. int argc;
  351. char *argv[];
  352.  
  353. {
  354.     int i,j,k,p;
  355.     char ans,ans2,cfile[100],string[100];
  356.     int mt=0,lbrite=64,nbrite=127,brite;
  357.     int cx=256,cy=ScreenYs/2;
  358.     int xc,yc,xs,ys,ix,iy,val,speed,isize=FontSize,color;
  359.     float pixsize=12.0,clat=38.0,clon=-95.75,space=10.0;
  360.     int m_num=0,plotmap=0;
  361.     FILE *fp;
  362.     int point=0;
  363.  
  364.     ix=ScreenXs/2;
  365.     iy=ScreenYs/2;
  366.     speed=16;
  367.  
  368.     for(i=0;i<argc;i++)
  369.     {
  370.         if(argv[i][1]==':')
  371.             add_disk_path(argv[i]);
  372.         if(argv[i][0]=='/'&&argv[i][1]=='a')
  373.         {
  374.             Auto=1;
  375.             strcpy(LastMap,argv[i+1]);
  376.         }
  377.         if(argv[i][0]=='/'&&argv[i][1]=='o')
  378.         {
  379.             if(M.Out==0&&i<argc-1)
  380.             {
  381.                 add_disk_path(argv[i+1]);
  382.                 Fpout=fopen(argv[i+1],"wt");
  383.                 if(Fpout)
  384.                 {
  385.                     M.Out=1;
  386.                     printf("Output file = '%s'\n",argv[i+1]);
  387.                 }
  388.                 else
  389.                 {
  390.                     printf("Could not open '%s' to write.\n\n",argv[i+1]);
  391.                     M.Out=0;
  392.                     printf("HIT ANY KEY TO CONTINUE!\n\n");
  393.                     getch();
  394.                 }
  395.             }
  396.         }
  397.         if(argv[i][0]=='/'&&argv[i][1]=='l')
  398.         {
  399.             FpLab=fopen(argv[i+1],"wt");
  400.             if(FpLab)
  401.             {
  402.                 printf("Label Output file = '%s'\n",argv[i+1]);
  403.                 printf("HIT ANY KEY TO CONTINUE!\n\n");
  404.                 getch();
  405.             }
  406.             else
  407.             {
  408.                 printf("Could not open '%s' to write.\n\n",argv[i+1]);
  409.                 printf("HIT ANY KEY TO CONTINUE!\n\n");
  410.                 getch();
  411.             }
  412.         }
  413.         if(argv[i][0]=='/'&&(argv[i][1]=='e'||argv[i][1]=='E'))
  414.         {
  415.             ScreenYs=380;
  416.             cy=ScreenYs/2;
  417.         }
  418.         if(argv[i][0]=='/'&&argv[i][1]=='R')
  419.             RawOn=1;
  420.         if(argv[i][0]=='/'&&(argv[i][1]=='X'||argv[i][1]=='x'))
  421.             VideoType='X';
  422.         if(argv[i][0]=='/'&&(argv[i][1]=='Y'||argv[i][1]=='y'))
  423.             VideoType='Y';
  424.         if(argv[i][0]=='/'&&(argv[i][1]=='E'||argv[i][1]=='e'))
  425.             VideoType='E';
  426.         if(argv[i][0]=='/'&&(argv[i][1]=='V'||argv[i][1]=='v'))
  427.             VideoType='V';
  428.         if(argv[i][0]=='/'&&(argv[i][1]=='S'||argv[i][1]=='s'))
  429.             VideoType='S';
  430.         if(argv[i][0]=='/'&&(argv[i][1]=='g'||argv[i][1]=='G'))
  431.             M.GratOn=1;
  432.     }
  433.     xc=0;yc=0;xs=ScreenXs;ys=ScreenYs;
  434.     video_on();
  435. /* use SubPaths with type of SubType for sub images */
  436.                                     /* move all Path up 1 */
  437.     for(i=NumPath;i>0;i--)
  438.         strcpy(Path[i],Path[i-1]);
  439.     NumPath+=1;
  440.                                     /* add '?mp\' to a new set of Paths */
  441.     for(i=1;i<NumPath;i++)
  442.         sprintf(Path[NumPath+i-1],"%s%s\\",Path[i],SubType+1);
  443.     NumPath+=NumPath-1;
  444.  
  445. /*
  446. SetVideoMode(0);
  447. for(i=0;i<NumPath;i++)
  448. printf("%2d -- '%s'\n",i,Path[i]);
  449. exit(0);
  450. */
  451.  
  452.     M.Pixsize*=PixScale;
  453.     pixsize=M.Pixsize;
  454.     clat=M.Clat;
  455.     clon=M.Clon;
  456.     space=M.Space;    
  457.     cy=ScreenYs/2;
  458.     SetVideoMode(0);
  459.     if(Auto==1&&strlen(LastMap)>0)
  460.     {
  461.         video_on();
  462.         strcat(LastMap,Suffix);
  463.         if(unsave_map(LastMap)>0)
  464.         {
  465.             plotmap=1;
  466.             ix=ScreenXs/2;
  467.             iy=ScreenYs/2;
  468.             speed=16;
  469.             m_num=6;
  470.             pix_loc(ix,iy,&ix,&iy,&speed);
  471.         }
  472.         else
  473.             SetVideoMode(0);
  474.     }
  475.     if(plotmap==0)
  476.     {
  477.         printf("     Choose a map to start with\n");
  478.         printf("by using the up and down arrow\n");
  479.         printf("keys, 'Pg Up' or 'Pg Dn' keys,\n");
  480.         printf("or by typing the name of the\n");
  481.         printf("map.  Hit 'Enter' to select a\n");
  482.         printf("map.  If the map is not in this\n");
  483.         printf("directory and you have entered\n");
  484.         printf("command line path names, hit\n");
  485.         printf("'Esc' to continue on to other\n");
  486.         printf("paths.\n\n");
  487.         printf("     If you wish to draw a map\n");
  488.         printf("rather than load one that is\n");
  489.         printf("already drawn -- hit 'Esc'\n");
  490.         printf("until the menu contains '*.map'\n");
  491.         printf("files.\n\n");
  492.         printf("     If you copy drawn map\n");
  493.         printf("files from one disc to another,\n");
  494.         printf("the path names may be incorrect\n");
  495.         printf("and you may not be able to\n");
  496.         printf("zoom.\n");
  497.         plotmap=0;
  498.         sprintf(string,"*%s",Suffix);
  499.         if(search_list(string,cfile)>=0)
  500.         {
  501.             video_on();
  502.             unsave_map(cfile);
  503.             plotmap=1;
  504.         }
  505.     }
  506.     if(plotmap==0)
  507.     {
  508.         if(search_list("*.map",cfile)<0)
  509.         {
  510.             printf("No maps chosen.\n\n");
  511.             exit(0);
  512.         }
  513.         if(strlen(cfile)>0)
  514.             val=read_control(cfile);
  515.         else
  516.             exit(0);
  517.         if(val<0)
  518.         {
  519.             if(val==-1)
  520.                 printf("Could not open control file '%s'\n\n",cfile);
  521.             if(val==-2)
  522.                 printf("Could not find 'begin_color in file '%s'\n\n",cfile);
  523.             if(val==-3)
  524.                 printf("Could not find 'begin_vector in file '%s'\n\n",cfile);
  525.             if(val==-4)
  526.                 printf("Too many vectors in a group in file '%s'\n\n",cfile);
  527.             if(val==-5)
  528.                 printf("Bad color name in file '%s'\n\n",cfile);
  529.             if(val==-6)
  530.     printf
  531.     ("Missing or bad pixel size, central lat and lon or graticule spacing\n");
  532.             exit(0);
  533.         }
  534.         video_on();
  535.         M.Pixsize*=PixScale;
  536.         pixsize=M.Pixsize;
  537.         clat=M.Clat;
  538.         clon=M.Clon;
  539.         space=M.Space;    
  540.         cy=ScreenYs/2;
  541.         set_lut('c',0);
  542.         plot_map(xc,yc,ScreenXs,ScreenYs,pixsize,clat,clon,space,0);
  543.     }
  544.     do
  545.     {
  546.         m_num=M_do_menu(Menu_M,MENU_M,MENUXC,25,m_num,M.Mback,M.Text,M.High,Font);
  547.         if(m_num==0)
  548.         {
  549.             pixsize=M.Pixsize;
  550.             clat=M.Clat;
  551.             clon=M.Clon;
  552.             space=M.Space;
  553.             ans=Zoom(xc,yc,ScreenXs,ScreenYs,&pixsize,&clat,&clon,&space);
  554.             if(ans!=27)
  555.             plot_map(xc,yc,ScreenXs,ScreenYs,pixsize,clat,clon,space,0);
  556.         }
  557.         if(m_num==1)
  558.         {
  559.             pixsize=M.Pixsize;
  560.             clat=M.Clat;
  561.             clon=M.Clon;
  562.             space=M.Space;
  563.             T_do_menu(T_Menu_L,M.Num_Type+3,25,25,m_num,M.Mback,M.Text,M.High,
  564.                     Font,M.Mm);
  565.             plot_map(xc,yc,ScreenXs,ScreenYs,pixsize,clat,clon,space,0);
  566.         }
  567.         if(m_num==2)
  568.         {
  569.             xc=0;yc=0;xs=ScreenXs;ys=ScreenYs;
  570.             pixsize=M.Pixsize;
  571.             clat=M.Clat;
  572.             clon=M.Clon;
  573.             space=M.Space;
  574.             plot_map(xc,yc,ScreenXs,ScreenYs,pixsize,clat,clon,space,0);
  575.         }
  576.         if(m_num==3)
  577.         {
  578.             pixsize=M.Pixsize;
  579.             clat=M.Clat;
  580.             clon=M.Clon;
  581.             space=M.Space;
  582.             save_box(0,M.Black,Mbuff,0,MaxYs-40,MaxXs,40);
  583.             sprintf(String,"Give new projection type.  l=Lambert  a=Albers");
  584.             if(VideoType=='S')
  585.                 plot_font_h(M.White,5,MaxYs-38,String,3,Font);
  586.             else
  587.                 plot_font_h(M.White,5,MaxYs-38,String,2,Font);
  588.             sprintf(String,
  589. "'m'=Mercator  's'=polar stereographic  'p'=plate carre   S=sinusoidal");
  590.             if(VideoType=='S')
  591.                 plot_font_h(M.White,5,MaxYs-18,String,3,Font);
  592.             else
  593.                 plot_font_h(M.White,5,MaxYs-18,String,2,Font);
  594.             M.Type=getch();
  595.             if(M.Type=='l'||M.Type=='a'||
  596.                     M.Type=='m'||M.Type=='s'||M.Type=='p'||M.Type=='S')
  597.                 plot_map(xc,yc,ScreenXs,ScreenYs,pixsize,clat,clon,space,0);
  598.             else
  599.             {
  600.                 M.Type='p';
  601.                 unsave_box(0,M.Black,Mbuff,0,MaxYs-40,MaxXs,40);
  602.             }
  603.         }
  604.         if(m_num==4)
  605.         {
  606.             i=0;
  607.             do
  608.             {
  609.                 fclose(fp);
  610.                 sprintf(string,"mapper%02d%s",i++,Suffix);
  611.                 fp=open_to_read_binary(string);
  612.             }while(fp);
  613.             fclose(fp);
  614.             save_map(string);
  615.         }
  616.         if(m_num==5)
  617.         {
  618.             sprintf(string,"*%s",Suffix);
  619.             SetVideoMode(0);
  620.             if(search_list(string,cfile)>=0)
  621.             {
  622.                 video_on();
  623.                 unsave_map(cfile);
  624.             }
  625.             else
  626.             {
  627.                 printf("No maps chosen.\n\n");
  628.                 exit(0);
  629.             }
  630.         }
  631.         if(m_num==6)
  632.         {
  633.             ix=ScreenXs/2;
  634.             iy=ScreenYs/2;
  635.             speed=16;
  636.             pix_loc(ix,iy,&ix,&iy,&speed);
  637.         }
  638.         if(m_num==7)
  639.         {
  640.             pixsize=M.Pixsize;
  641.             vector_plot(pixsize);
  642.         }
  643.         if(m_num==8)
  644.         {
  645.             ix=ScreenXs/2;
  646.             iy=ScreenYs/2;
  647.             isize=FontSize;
  648.             color=M.White;
  649.             while(annotate(&ix,&iy,&isize,&color)!=27);
  650.         }
  651.         if(m_num==9)
  652.         {
  653.             ix=ScreenXs/2;
  654.             iy=ScreenYs/2;
  655.             color=M.White;
  656.             while(draw_line(&ix,&iy,&color)!=27);
  657.         }
  658.         if(m_num==10)
  659.             add_graticule();
  660.         if(m_num==11)
  661.             point=point_plot(M.Pixsize,point);
  662.     }while(m_num!=MENU_M-1); 
  663.  
  664.     SetVideoMode(0);
  665.     fclose(Fpout);
  666.     fclose(FpLab);
  667. }
  668.  
  669. /********************************************************************
  670. **
  671. **    locate a point
  672. **
  673. ********************************************************************* */
  674.  
  675. void pix_loc(fx,fy,px,py,sp)
  676.  
  677. int fx,fy;            /* starting point of cursor */
  678. int *px,*py,*sp;        /* pointers to final location */
  679.  
  680. {
  681.     int i,j,l,m,p;
  682.     int ans,size=0,speed,x,y,xo,yo,k,ans2,ans3,screen_xs=ScreenXs;
  683.     static unsigned char tbuff[200];
  684.     int lsize=FontSize,val,ival,val1,val2;
  685.     char string[100],pth[STR_LEN],nam[10],typ[10];
  686.     int idc[2],clr,num;
  687.     double lat,lon;
  688.     FILE *fpblb;
  689.     double dx,dy;
  690.     int ix,iy,color=M.White,xc,txs,cspeed=8,tcolor[3];
  691.     float fspeed=0.05;
  692.     float pixsize=M.Pixsize;
  693.     long lxs,lys,buffersize=(long)B_LINES*(long)MAX_X;
  694.  
  695.     if(VideoType=='S')
  696.         lsize=3;
  697.     ScreenXs=MaxXs;
  698.     speed=*sp;
  699.     size=0;
  700.     xo=x=fx;
  701.     yo=y=fy;
  702.     tcursor(0,x,y,5,tbuff);
  703.     lxs=42*15/lsize;
  704.     lys=32/lsize;
  705.     if(lxs*lys>buffersize)
  706.     {
  707.         printf("Box 1 too large in 'pix_loc()'\n");
  708.         exit(0);
  709.     }
  710.     lxs=MaxXs;
  711.     lys=32/lsize;
  712.     if(lxs*lys>buffersize)
  713.     {
  714.         printf("Box 2 too large in 'pix_loc()'\n");
  715.         exit(0);
  716.     }
  717.     save_box(0,M.Back,Mbuff,
  718.         0,ScreenYs-32/lsize,42*15/lsize,32/lsize);
  719.     while((ans=getpad(&size,&x,&y,&speed,0))!=27&&ans!=13)
  720.     {
  721.         if(ans=='h'||ans=='H'||ans==59)        /* F1 */
  722.         {
  723.             txs=ScreenXs;
  724.             unsave_box(0,M.Back,Mbuff,
  725.                 0,ScreenYs-32/lsize,42*15/lsize,32/lsize);
  726.             save_box(0,M.Back,Mbuff,
  727.                 0,0,MaxXs,32/lsize);
  728.             paint_box(0,M.Back,MT_Buff,0,0,ScreenXs,32/lsize);
  729.             if(VideoType=='X'||VideoType=='S'||VideoType=='Y')
  730.             {
  731.                 sprintf(string,
  732. "(k)ey  (K)ey  (n)ame 1  (N)ame all  (P)aint area  (R)emove lines");
  733.                 plot_font_h(M.White,1,1,string,FontSize,Font);
  734.                 if(getch()==0)
  735.                     getch();
  736.                 if(M.Fill_In>0)
  737.                 {
  738.                     paint_box(0,M.Back,MT_Buff,0,0,ScreenXs,32/lsize);
  739.                     sprintf(string,"(D)arker map colors  (B)righter map colors");
  740.                     plot_font_h(M.White,1,1,string,FontSize,Font);
  741.                     if(getch()==0)
  742.                         getch();
  743.                 }
  744.                 paint_box(0,M.Back,MT_Buff,0,0,ScreenXs,32/lsize);
  745.                 sprintf(string,
  746. "(E)dit colors  (C)olor table output  (f)lash");
  747.             }
  748.             else
  749.                 sprintf(string,
  750. "(k)ey  (K)ey  (n)ame 1  (N)ame all  (P)aint area");
  751.             plot_font_h(M.White,1,1,string,FontSize,Font);
  752.             if(getch()==0)
  753.                 getch();
  754.             if(M.NumSymbol>0)
  755.             {
  756.                 paint_box(0,M.Back,MT_Buff,0,0,ScreenXs,32/lsize);
  757. #ifdef COREOFF
  758. sprintf(string,"(i)ndex points");
  759. #else
  760. sprintf(string,"(l)abel points   (i)ndex points");
  761. #endif
  762.                 plot_font_h(M.White,1,1,string,FontSize,Font);
  763.                 getch();
  764.                 paint_box(0,M.Back,MT_Buff,0,0,ScreenXs,32/lsize);
  765. sprintf(string,"(S)earch for nearest point  e(x)it to picture");
  766.                 plot_font_h(M.White,1,1,string,FontSize,Font);
  767.                 getch();
  768.                 paint_box(0,M.Back,MT_Buff,0,0,ScreenXs,32/lsize);
  769.             }
  770.             unsave_box(0,M.Back,Mbuff,
  771.                 0,0,MaxXs,32/lsize);
  772.             save_box(0,M.Back,Mbuff,
  773.                 0,ScreenYs-32/lsize,42*15/lsize,32/lsize);
  774.             screen_xs=txs;
  775.         }
  776.         uncursor(0,xo,yo,5,tbuff);
  777.         val=getpt(0,x,y)-16;
  778.         color=M.Comp_Color[val+16];
  779.         tcursor(0,x,y,5,tbuff);
  780.         cursor(0,x,y,color,5);
  781.         dx=xo=x;
  782.         dy=yo=y;
  783.         xy_ll(dx,dy,&lat,&lon);
  784. #ifdef COREOFF
  785.         if(ans=='l')
  786.         {
  787.             for(i=0;i<M.NumSymbol;i++)
  788.             {
  789.                 if(PlaceFile[i].on==1&&
  790.                     pixsize>=PlaceFile[i].min_pix&&pixsize<PlaceFile[i].max_pix)
  791.                 {
  792.                     symbol_plot(i,1);
  793.                 }
  794.             }
  795.         }
  796. #endif
  797.         if(ans=='i')
  798.         {
  799.             for(i=0;i<M.NumSymbol;i++)
  800.             {
  801.                 if(PlaceFile[i].on==1&&
  802.                     pixsize>=PlaceFile[i].min_pix&&pixsize<PlaceFile[i].max_pix)
  803.                 {
  804.                     symbol_plot(i,2);
  805.                 }
  806.             }
  807.         }
  808.         if(ans=='m')
  809.         {
  810.             cursor(0,x,y,M.White,5);
  811.             tcursor(0,x,y,5,tbuff);
  812.             cursor(0,x,y,M.White,5);
  813.             if(M.Out==1&&Fpout)
  814.                 fprintf(Fpout,"%10.6lf %11.6lf\n",lat,lon);
  815.         }
  816.         paint_box(0,M.Back,MT_Buff,0,ScreenYs-32/lsize,42*15/lsize,32/lsize);
  817.         if(val>0)
  818.         {
  819.             sprintf(string,"%3d %s %9.6lf %11.6lf",val,M.Fill_Name[val],lat,lon);
  820.             if(strlen(string)>65)
  821.             {
  822.                 printf("string too long -- strlen(string) = %d\n",strlen(string));
  823.                 exit(0);
  824.             }
  825.         }
  826.         else
  827.         {
  828.             sprintf(string,"        %9.6lf %11.6lf",lat,lon);
  829.             if(strlen(string)>65)
  830.             {
  831.                 printf("string too long -- strlen(string) = %d\n",strlen(string));
  832.                 exit(0);
  833.             }
  834.         }
  835.         plot_font_h(M.White,2,ScreenYs-30/lsize,string,lsize,Font);
  836.         if(ans=='n'&&(VideoType=='X'||VideoType=='S'||VideoType=='Y'))
  837.         {
  838.             uncursor(0,xo,yo,5,tbuff);
  839.             if(val>=0&&strlen(M.Fill_Name[val])>0)
  840.                 plot_font_h(color,x-strlen(M.Fill_Name[val])*15/lsize/2,y-13/lsize,
  841.                     M.Fill_Name[val],lsize,Font);
  842.             tcursor(0,x,y,5,tbuff);
  843.             cursor(0,x,y,color,5);
  844.             xo=x;yo=y;
  845.         }
  846.         if(ans=='D'&&(BackBright>0.11))
  847.         {
  848.             BackBright-=0.10;
  849.             set_back();
  850.         }
  851.         if(ans=='B'&&(BackBright<2.0))
  852.         {
  853.             BackBright+=0.10;
  854.             set_back();
  855.         }
  856.         if(ans=='P')
  857.         {
  858.             unsave_box(0,M.Back,Mbuff,
  859.                 0,ScreenYs-32/lsize,42*15/lsize,32/lsize);
  860.             uncursor(0,xo,yo,5,tbuff);
  861.             i=0;
  862.             while((string[i++]=getch())!=13);
  863.             string[i]='\0';
  864.             sscanf(string,"%d",&clr);    
  865.             if(clr>=0&&clr<=M.Max_Fill)
  866.             {
  867.                 dx=xo;dy=yo;
  868.                 xy_ll(dx,dy,&lat,&lon);
  869.                 if(FpLab)
  870.                     fprintf(FpLab,"   0     0  %9.6lf %11.6lf %3d %3d\n",
  871.                         lat,lon,clr,clr);
  872.                 if(VideoType=='X'||VideoType=='S'||VideoType=='Y')
  873.                     auto_fill_in(0,clr+16,MT_Buff,todo,xo,yo);
  874.                 else
  875.                 {
  876.                     val1=M.Fill_Color[clr][0];
  877.                     val2=M.Fill_Color[clr][1];
  878.                     if(val1==M.Back)
  879.                         val1=M.Black;
  880.                     if(val2==M.Back)
  881.                         val2=M.Black;
  882.                     auto_fill_in_2(0,val1,val2,Mbuff,todo,xo,yo);
  883.                 }
  884.             }
  885.             tcursor(0,xo,yo,5,tbuff);
  886.             save_box(0,M.Back,Mbuff,
  887.                 0,ScreenYs-32/lsize,42*15/lsize,32/lsize);
  888.             cursor(0,xo,yo,color,5);
  889.         }
  890.         if(ans=='p'&&(VideoType=='X'||VideoType=='S'||VideoType=='Y'))
  891.         {
  892.             uncursor(0,xo,yo,5,tbuff);
  893.             clr=getpt(0,xo,yo)-16;
  894.             dx=xo;dy=yo;
  895.             xy_ll(dx,dy,&lat,&lon);
  896.             if(FpLab)
  897.                 fprintf(FpLab,"   0     0  %9.6lf %11.6lf %3d %3d\n",
  898.                     lat,lon,clr,clr);
  899.             tcursor(0,xo,yo,5,tbuff);
  900.             cursor(0,xo,yo,color,5);
  901.         }
  902.         if(ans=='f'||ans=='F')
  903.         {
  904.             tcolor[0]=M.lut[val+16].r;
  905.             tcolor[1]=M.lut[val+16].g;
  906.             tcolor[2]=M.lut[val+16].b;
  907.             M.lut[val+16].r=255;
  908.             M.lut[val+16].g=255;
  909.             M.lut[val+16].b=255;
  910.             WritePalette(M.lut);
  911.             M.lut[val+16].r=tcolor[0];
  912.             M.lut[val+16].g=tcolor[1];
  913.             M.lut[val+16].b=tcolor[2];
  914.             if(getch()==0)
  915.                 getch();
  916.             WritePalette(M.lut);
  917.         }
  918.         if(ans=='E'&&val>0) /* edit colors */
  919.         {
  920.             unsave_box(0,M.Back,Mbuff,
  921.                 0,ScreenYs-32/lsize,42*15/lsize,32/lsize);
  922.             save_box(0,M.Back,Mbuff,
  923.                 0,ScreenYs-64/lsize,20*15/lsize,64/lsize);
  924.             do
  925.             {
  926.                 paint_box(0,M.Back,MT_Buff,0,ScreenYs-64/lsize,
  927.                     20*15/lsize,64/lsize);
  928.                 sprintf(String,"I=%4.2f H=%3.0f S=%4.2f",
  929.                     M.Fill_Color_IHS[val][0],M.Fill_Color_IHS[val][1],
  930.                     M.Fill_Color_IHS[val][2]);
  931.                 plot_font_h(M.White,1,ScreenYs-64/lsize+1,String,lsize,Font);
  932.                 sprintf(String," %4.2f    %3d   %4.2f",fspeed,cspeed,fspeed*2.0);
  933.                 plot_font_h(M.White,1,ScreenYs-32/lsize+1,String,lsize,Font);
  934.                 ans2=getch();
  935.                 if(ans2=='-')
  936.                 {
  937.                     if(cspeed>1)
  938.                         cspeed/=2;
  939.                     if(fspeed>0.01)
  940.                         fspeed/=2.0;
  941.                 }
  942.                 if(ans2=='+')
  943.                 {
  944.                     if(cspeed<64)
  945.                         cspeed*=2;
  946.                     if(fspeed<0.16)
  947.                         fspeed*=2.0;
  948.                 }
  949.                 if(ans2==0)
  950.                 {
  951.                     ans3=getch();
  952.                     if(ans3==71)
  953.                         M.Fill_Color_IHS[val][0]+=fspeed;
  954.                     if(ans3==79)
  955.                         M.Fill_Color_IHS[val][0]-=fspeed;
  956.                     if(M.Fill_Color_IHS[val][0]>1.0)
  957.                         M.Fill_Color_IHS[val][0]=1.0;
  958.                     if(M.Fill_Color_IHS[val][0]<0.0)
  959.                         M.Fill_Color_IHS[val][0]=0.0;
  960.                     if(ans3==73)
  961.                         M.Fill_Color_IHS[val][2]+=fspeed*2.0;
  962.                     if(ans3==81)
  963.                         M.Fill_Color_IHS[val][2]-=fspeed*2.0;
  964.                     if(M.Fill_Color_IHS[val][2]>1.0)
  965.                         M.Fill_Color_IHS[val][2]=1.0;
  966.                     if(M.Fill_Color_IHS[val][2]<0.0)
  967.                         M.Fill_Color_IHS[val][2]=0.0;
  968.                     if(ans3==72)
  969.                         M.Fill_Color_IHS[val][1]+=cspeed;
  970.                     if(ans3==80)
  971.                         M.Fill_Color_IHS[val][1]-=cspeed;
  972.                     if(M.Fill_Color_IHS[val][1]>255)
  973.                         M.Fill_Color_IHS[val][1]-=256;
  974.                     if(M.Fill_Color_IHS[val][1]<0)
  975.                         M.Fill_Color_IHS[val][1]+=256;
  976.                     set_lut('c',1);
  977.                 }
  978.             }while(ans2!=27&&ans2!=13);
  979.             unsave_box(0,M.Back,Mbuff,
  980.                 0,ScreenYs-64/lsize,20*15/lsize,64/lsize);
  981.             save_box(0,M.Back,Mbuff,
  982.                 0,ScreenYs-32/lsize,42*15/lsize,32/lsize);
  983.         }
  984.         if(ans=='C')    /* print data in 'mapper.out' */
  985.             set_lut('c',0);
  986.         if(ans=='A')
  987.         {
  988.             for(i=0;i<ScreenYs;i++)
  989.             {
  990.                 for(j=0;j<ScreenXs;j++)
  991.                 {
  992.                     if((i+j)%2==0)
  993.                         MT_Buff[0][j]=(j*16)/ScreenXs;
  994.                     else
  995.                         MT_Buff[0][j]=(i*16)/ScreenYs;
  996.                 }
  997.                 plotrow(0,0,ScreenXs-1,i,MT_Buff[0]);
  998.             }
  999.         }
  1000.         if(ans=='k'&&M.Fill_In>0)
  1001.         {
  1002.             ScreenXs=MaxXs;
  1003.             M.KeyPlotted=0;
  1004.             if(VideoType!='S')
  1005.                 plot_key(ScreenXs,0,3);
  1006.             else
  1007.                 plot_key(ScreenXs,0,4);
  1008.             screen_xs=ScreenXs;
  1009.             xy_ll((double)(ScreenXs/2),(double)(ScreenYs/2),&lat,&lon);
  1010.             miv.indat[0]=M.Pixsize;
  1011.             miv.indat[1]=M.Clat=lat;
  1012.             miv.indat[2]=M.Clon=lon;
  1013.             miv.indat[3]=M.Clon;
  1014.             miv.indat[4]=M.Clat+10;
  1015.             miv.indat[5]=M.Clat-10;
  1016.             map_pos.xc=0;    
  1017.             map_pos.yc=0;
  1018.             map_pos.xs=ScreenXs;
  1019.             map_pos.ys=ScreenYs;
  1020.             auto_set_cc(miv.type,miv.indat);
  1021.             ScreenXs=MaxXs;
  1022.         }
  1023.         if(ans=='K'&&M.Fill_In>0)
  1024.         {
  1025.             ScreenXs=MaxXs;
  1026.             M.KeyPlotted=0;
  1027.             if(VideoType!='S')
  1028.                 plot_key(ScreenXs,0,2);
  1029.             else
  1030.                 plot_key(ScreenXs,0,3);
  1031.             screen_xs=ScreenXs;
  1032.             xy_ll((double)(ScreenXs/2),(double)(ScreenYs/2),&lat,&lon);
  1033.             miv.indat[0]=M.Pixsize;
  1034.             miv.indat[1]=M.Clat=lat;
  1035.             miv.indat[2]=M.Clon=lon;
  1036.             miv.indat[3]=M.Clon;
  1037.             miv.indat[4]=M.Clat+10;
  1038.             miv.indat[5]=M.Clat-10;
  1039.             map_pos.xc=0;    
  1040.             map_pos.yc=0;
  1041.             map_pos.xs=ScreenXs;
  1042.             map_pos.ys=ScreenYs;
  1043.             auto_set_cc(miv.type,miv.indat);
  1044.             ScreenXs=MaxXs;
  1045.         }
  1046.         if(ans=='S'&&M.NumSymbol>0)
  1047.         {
  1048.             if(search_points(&x,&y,M.Pixsize,string)>0)
  1049.             {
  1050.                 paint_box(0,M.Back,MT_Buff,
  1051.                         0,ScreenYs-32/lsize,42*15/lsize,32/lsize);
  1052.                 uncursor(0,xo,yo,5,tbuff);
  1053.                 val=getpt(0,x,y)-16;
  1054.                 color=M.Comp_Color[val+16];
  1055.                 tcursor(0,x,y,5,tbuff);
  1056.                 cursor(0,x,y,color,5);
  1057.                 xo=x;yo=y;
  1058.                 plot_font_h(M.White,2,ScreenYs-30/lsize,string,lsize,Font);
  1059.             }
  1060.         }
  1061.         if(ans=='x'&&M.NumSymbol>0)    /* look at pictures */
  1062.         {
  1063.             if(search_points(&x,&y,M.Pixsize,string)>0)
  1064.             {
  1065.                 picture_view(string);
  1066.                 if(unsave_map(LastMap)>0)
  1067.                 {
  1068.                     save_box(0,M.Back,Mbuff,
  1069.                         0,ScreenYs-32/lsize,42*15/lsize,32/lsize);
  1070.                     uncursor(0,xo,yo,5,tbuff);
  1071.                     val=getpt(0,x,y)-16;
  1072.                     color=M.Comp_Color[val+16];
  1073.                     tcursor(0,x,y,5,tbuff);
  1074.                     cursor(0,x,y,color,5);
  1075.                     xo=x;yo=y;
  1076.                     plot_font_h(M.White,2,ScreenYs-30/lsize,string,lsize,Font);
  1077.                 }
  1078.             }
  1079.         }
  1080.         if(ans=='N')
  1081.         {
  1082.             unsave_box(0,M.Back,Mbuff,
  1083.                 0,ScreenYs-32/lsize,42*15/lsize,32/lsize);
  1084.             for(m=0;m<M.Num_Fill;m++)
  1085.             {
  1086.                 fpblb=open_to_read_binary(M.Fill_In_Name[m]);
  1087.                 if(fpblb)
  1088.                 {
  1089.                     while(fread((char *)idc,sizeof(int),2,fpblb)==2)
  1090.                     {
  1091.                         fread((char *)&lat,sizeof(double),1,fpblb);
  1092.                         fread((char *)&lon,sizeof(double),1,fpblb);
  1093.                         ll_xy(&dx,&dy,lat,lon);
  1094.                         ix=dx;iy=dy;
  1095.                         if(ix>=0&&ix<ScreenXs&&iy>=0&&iy<ScreenYs)
  1096.                         {
  1097.                             ival=idc[1];
  1098.                             color=M.Comp_Color[ival+16];
  1099.                             if(ival>0)
  1100.                             {
  1101.                                 if(strlen(M.Fill_Name[ival])>0)
  1102.                                     plot_font_h(color,
  1103.                                         ix-strlen(M.Fill_Name[ival])*15/lsize/2,
  1104.                                     iy-13/lsize,
  1105.                                     M.Fill_Name[ival],lsize,Font);
  1106.                             }
  1107.                         }
  1108.                     }
  1109.                 }
  1110.             }
  1111.             fclose(fpblb);
  1112.             save_box(0,M.Back,Mbuff,
  1113.                 0,ScreenYs-32/lsize,42*15/lsize,32/lsize);
  1114.         }
  1115.         if(ans=='R'&&(VideoType=='X'||VideoType=='S'||VideoType=='Y'))
  1116.         {
  1117.             unsave_box(0,M.Back,Mbuff,
  1118.                 0,ScreenYs-32/lsize,42*15/lsize,32/lsize);
  1119.             remove_boundaries(M.MapFile[0][0].color);
  1120.             save_box(0,M.Back,Mbuff,
  1121.                 0,ScreenYs-32/lsize,42*15/lsize,32/lsize);
  1122.         }
  1123.         xo=x;yo=y;
  1124.     }
  1125.     uncursor(0,xo,yo,5,tbuff);
  1126.     unsave_box(0,M.Back,Mbuff,
  1127.         0,ScreenYs-32/lsize,42*15/lsize,32/lsize);
  1128.     *px=x;*py=y;*sp=speed;
  1129.     ScreenXs=screen_xs;
  1130.     return;
  1131. }
  1132.  
  1133.  
  1134. /***********************************************************************
  1135. **
  1136. **
  1137. **
  1138. **
  1139. ************************************************************************/
  1140.  
  1141. int picture_view(string)
  1142.  
  1143. char *string;
  1144.  
  1145. {
  1146.     int i,j,k;
  1147.     char filename[STR_LEN],str1[50],str2[50],str3[50],str4[50];
  1148.     int ans;
  1149.     FILE *fp;
  1150.     char instring[STR_LEN],infile[STR_LEN];
  1151.  
  1152.     if(sscanf(string,"%s%s%s%s",str1,str2,str3,str4)<4)
  1153.         return(-1);
  1154.     sprintf(str1,"?%s*.lbl",str4);
  1155.     SetVideoMode(0);
  1156.  
  1157.     do
  1158.     {
  1159.         SetCursor(0,0);
  1160.         sprintf(infile,"%s.doc",str4);
  1161.         fp=fopen(infile,"rt");
  1162.         if(fp)
  1163.         {
  1164.             while(fgets(instring,80,fp)!=NULL)
  1165.                 printf("%s",instring);
  1166.         }
  1167.         fclose(fp);
  1168.         ans=D_get_file_name(str1,filename);
  1169.         if(ans<0)
  1170.         {
  1171.             video_on();
  1172.             return(1);
  1173.         }
  1174.         strcpy(Hdr[Img].label,filename);
  1175.         for(k=0;k<strlen(filename);k++)
  1176.         if(filename[k]=='.')
  1177.             filename[k]='\0';
  1178.         strcpy(string,filename);
  1179.         strcat(string,".lbl");        
  1180.         if(read_lbl(Hdr[Img].label,Img)>0)
  1181.         {
  1182.             fcloseall();
  1183.             video_on();
  1184.             process_image(Img);
  1185.             SetVideoMode(0);            
  1186.         }
  1187.     }while(ans>=0);
  1188.     video_on();
  1189. }
  1190.  
  1191. /**************************************************************************
  1192. **
  1193. **
  1194. **
  1195. ************************************************************************* */
  1196.  
  1197. int process_image(filenum)
  1198.  
  1199. int filenum;
  1200.  
  1201. {
  1202.     int num=0;
  1203.     int ix=ScreenXs/2,iy=ScreenYs/2,speed=16;
  1204.     int meni_iv=0;
  1205.  
  1206.     load_image(filenum);    
  1207.     do
  1208.     {
  1209.         num=M_do_menu(Menu_iv,MENU_IV,MENUXC,25,num,D_Grey,L_Grey,White,Font);
  1210.         if(num==0)
  1211.         {
  1212.             load_image(filenum);            
  1213.         }
  1214.     }while(num<MENU_IV-1);
  1215.     ZoomSample=1;
  1216. }
  1217.  
  1218. /**************************************************************************
  1219. **
  1220. **
  1221. **
  1222. ************************************************************************* */
  1223.  
  1224. int load_image(filenum)
  1225.  
  1226. int filenum;
  1227.  
  1228. {
  1229.     int i,j,k;
  1230.     int sample=0;
  1231.     int xs,ys;
  1232.     FILE *fp;
  1233.     long offset=0;
  1234.     char string[100];
  1235.  
  1236.     Row=Hdr[filenum].row;
  1237.     Col=Hdr[filenum].col;
  1238.     if(VideoType=='S')
  1239.         Speed=8;
  1240.  
  1241.     if(Hdr[filenum].sample_bits==0)
  1242.         Hdr[filenum].sample_bits=8;
  1243.  
  1244.     if((Row==0||Col==0)&&Hdr[filenum].row_col_header==0)
  1245.         return(-1);
  1246.     fp=open_to_read_binary(Hdr[filenum].image);
  1247.     if(!fp)
  1248.         return(-1);
  1249.     if(Hdr[filenum].row_col_header==1)
  1250.     {
  1251.         fread((char *)&Hdr[filenum].row,sizeof(int),1,fp);
  1252.         fread((char *)&Hdr[filenum].col,sizeof(int),1,fp);
  1253.         Col=Hdr[filenum].col;
  1254.         Row=Hdr[filenum].row;
  1255.         if(Row<=0||Col<=0)
  1256.             return(-1);
  1257.     }
  1258.     else if(Hdr[filenum].imbedded_header==1)
  1259.     {
  1260.         offset=Hdr[filenum].col;
  1261.         fseek(fp,offset,SEEK_SET);
  1262.     }
  1263.     else if(Hdr[filenum].header_bytes>0)
  1264.     {
  1265.         offset=Hdr[filenum].header_bytes;
  1266.         fseek(fp,offset,SEEK_SET);
  1267.     }
  1268.     video_on();
  1269.     do
  1270.     {
  1271.         Sample=sample+=1;
  1272.         Row=Hdr[filenum].row/sample;
  1273.         Col=Hdr[filenum].col/sample;
  1274.         offset=(sample-1);
  1275.         offset*=Hdr[filenum].col;
  1276.     }while(Col>ScreenXs||Row>ScreenYs);
  1277.     Hdr[filenum].sample=sample;
  1278.     if(Hdr[filenum].pal_type>0)
  1279.         IV_set_lut(Hdr[filenum].pal_type);
  1280.     else
  1281.     {
  1282.         if(IV_set_lut('P',Hdr[filenum].Lut)<0)
  1283.             IV_set_lut('G');
  1284.     }
  1285.     plot_full_image(fp,sample,filenum);
  1286.  
  1287.     if(sample>1)
  1288.     {
  1289.         sample=ZoomSample;
  1290.         if(limit_area_fixed(&Xc,&Yc,&xs,&ys,&Speed,&sample)!=27)
  1291.         {
  1292.             ZoomSample=sample;
  1293.             plot_sub_image(fp,sample,filenum);
  1294.         }
  1295.         else
  1296.         {
  1297.             ZoomSample=Sample;
  1298.         }
  1299.     }
  1300.     fclose(fp);
  1301. }
  1302.  
  1303. /********************************************************************
  1304. **
  1305. **    type  g -- grey all lut[] files
  1306. **            G -- grey only lut[]
  1307. **            i -- initial header map
  1308. **            r -- reset lut[] to lutc[]
  1309. **            p -- positive (0-127) magenta, negative (128-255) green
  1310. **
  1311. ********************************************************************* */
  1312.  
  1313. int IV_set_lut(type,filename)
  1314.  
  1315. char type,*filename;
  1316.  
  1317. {
  1318.     int i,k,hue,brite,j;
  1319.     int r,g,b;
  1320.     float color[3];
  1321.     double dbrite,dval;
  1322.     float val,minval,sat,inten;
  1323.     float fval,fk;
  1324.     FILE *fplut;
  1325.     int end=0,scale,sum;
  1326.     char string[100];
  1327.     long del,mindel,l1,l2,l3,l4;
  1328.  
  1329.     scale=1;
  1330.     if(Num_Color==16)
  1331.         scale=17;
  1332.     if(type=='P')
  1333.     {
  1334.         fplut=open_to_read_binary(filename);
  1335.         if(fplut)
  1336.         {
  1337.             i=0;
  1338.             do
  1339.             {
  1340.                 i+=1;
  1341.                 fscanf(fplut,"%s",string);
  1342.             }while(strcmpi(string,"end")!=0&&i<50);
  1343.             if(strcmpi(string,"end")!=0)
  1344.                 rewind(fplut);
  1345.             for(i=0;i<256;i++)
  1346.             {
  1347.                 fscanf(fplut,"%d%d%d%d",&k,&r,&g,&b);
  1348.                 Hdr[Img].lut[i].r=r;
  1349.                 Hdr[Img].lut[i].g=g;
  1350.                 Hdr[Img].lut[i].b=b;
  1351.             }
  1352.             fclose(fplut);
  1353.         }
  1354.         else
  1355.             return(-1);
  1356.         if(VideoType=='V'||VideoType=='E')
  1357.         {
  1358.             for(i=0;i<256;i++)
  1359.             {
  1360.                 sum=(int)Hdr[Img].lut[i].r*10;
  1361.                 sum+=(int)Hdr[Img].lut[i].g*8;
  1362.                 sum+=(int)Hdr[Img].lut[i].b*2;
  1363.                 sum/=319;
  1364.                 Hdr[Img].vga_color[i]=sum;
  1365.             }
  1366.             for(k=0;k<Num_Color;k++)
  1367.             {
  1368.                 Hdr[Img].lut[k].r=k*scale;
  1369.                 Hdr[Img].lut[k].g=k*scale;
  1370.                 Hdr[Img].lut[k].b=k*scale;
  1371.             }
  1372.         }
  1373.         ActiveLut='P';
  1374.     }
  1375.     if(type=='g')
  1376.     {
  1377.         for(k=0;k<Num_Color;k++)
  1378.         {
  1379.             Hdr[Img].lutc[k].r=Hdr[Img].lut[k].r=k*scale;
  1380.             Hdr[Img].lutc[k].g=Hdr[Img].lut[k].g=k*scale;
  1381.             Hdr[Img].lutc[k].b=Hdr[Img].lut[k].b=k*scale;
  1382.         }
  1383.         ActiveLut='g';
  1384.     }
  1385.     if(type=='G')
  1386.     {
  1387.         for(k=0;k<Num_Color;k++)
  1388.         {
  1389.             Hdr[Img].lut[k].r=k*scale;
  1390.             Hdr[Img].lut[k].g=k*scale;
  1391.             Hdr[Img].lut[k].b=k*scale;
  1392.         }
  1393.         ActiveLut='G';
  1394.     }
  1395.     if(type=='i')
  1396.     {
  1397.         for(k=0;k<Num_Color;k++)
  1398.         {
  1399.             Hdr[Img].lutc[k].r=Hdr[Img].lut[k].r=k*scale;
  1400.             Hdr[Img].lutc[k].g=Hdr[Img].lut[k].g=k*scale;
  1401.             Hdr[Img].lutc[k].b=Hdr[Img].lut[k].b=k*scale;
  1402.         }
  1403.         Hdr[Img].lut[ 64].r=  0;Hdr[Img].lut[ 64].g=  0;Hdr[Img].lut[ 64].b=128;
  1404.         Hdr[Img].lut[127].r=  0;Hdr[Img].lut[127].g=100;Hdr[Img].lut[127].b=  0;
  1405.         Hdr[Img].lut[191].r=255;Hdr[Img].lut[191].g=  0;Hdr[Img].lut[191].b=  0;
  1406.         Hdr[Img].lut[192].r=255;Hdr[Img].lut[192].g=128;Hdr[Img].lut[192].b=  0;
  1407.         Hdr[Img].lut[193].r=255;Hdr[Img].lut[193].g=255;Hdr[Img].lut[193].b=  0;
  1408.         Hdr[Img].lut[194].r=  0;Hdr[Img].lut[194].g=255;Hdr[Img].lut[194].b=  0;
  1409.         Hdr[Img].lut[195].r=  0;Hdr[Img].lut[195].g=255;Hdr[Img].lut[195].b=255;
  1410.         Hdr[Img].lut[196].r= 20;Hdr[Img].lut[196].g= 55;Hdr[Img].lut[196].b=255;
  1411.         Hdr[Img].lut[253].r=100;Hdr[Img].lut[253].g=  1;Hdr[Img].lut[253].b=  1;
  1412.         Hdr[Img].lut[254].r=100;Hdr[Img].lut[254].g=  1;Hdr[Img].lut[254].b=  1;
  1413.         ActiveLut='i';
  1414.     }
  1415.     if(type=='r')
  1416.     {
  1417.         for(k=0;k<Num_Color;k++)
  1418.         {
  1419.             Hdr[Img].lut[k].r=Hdr[Img].lutc[k].r;
  1420.             Hdr[Img].lut[k].g=Hdr[Img].lutc[k].g;
  1421.             Hdr[Img].lut[k].b=Hdr[Img].lutc[k].b;
  1422.         }
  1423.         ActiveLut='r';
  1424.     }
  1425.     mindel=16777216;
  1426.     for(i=0;i<Num_Color;i++)
  1427.     {
  1428.         l1=Blk.r;
  1429.         l2=Hdr[Img].lut[i].r;
  1430.         l3=Hdr[Img].lut[i].g;
  1431.         l4=Hdr[Img].lut[i].b;
  1432.         del=(l1-l2)*(l1-l2)+(l1-l3)*(l1-l3)+(l1-l4)*(l1-l4);
  1433.         if(del<mindel)
  1434.         {
  1435.             mindel=del;
  1436.             Black=i;
  1437.         }
  1438.     }
  1439.     mindel=16777216;
  1440.     for(i=0;i<Num_Color;i++)
  1441.     {
  1442.         l1=D_G.r;
  1443.         l2=Hdr[Img].lut[i].r;
  1444.         l3=Hdr[Img].lut[i].g;
  1445.         l4=Hdr[Img].lut[i].b;
  1446.         del=(l1-l2)*(l1-l2)+(l1-l3)*(l1-l3)+(l1-l4)*(l1-l4);
  1447.         if(del<mindel)
  1448.         {
  1449.             mindel=del;
  1450.             D_Grey=i;
  1451.         }
  1452.     }
  1453.     mindel=16777216;
  1454.     for(i=0;i<Num_Color;i++)
  1455.     {
  1456.         l1=M_G.r;
  1457.         l2=Hdr[Img].lut[i].r;
  1458.         l3=Hdr[Img].lut[i].g;
  1459.         l4=Hdr[Img].lut[i].b;
  1460.         del=(l1-l2)*(l1-l2)+(l1-l3)*(l1-l3)+(l1-l4)*(l1-l4);
  1461.         if(del<mindel)
  1462.         {
  1463.             mindel=del;
  1464.             M_Grey=i;
  1465.         }
  1466.     }
  1467.     mindel=16777216;
  1468.     for(i=0;i<Num_Color;i++)
  1469.     {
  1470.         l1=L_G.r;
  1471.         l2=Hdr[Img].lut[i].r;
  1472.         l3=Hdr[Img].lut[i].g;
  1473.         l4=Hdr[Img].lut[i].b;
  1474.         del=(l1-l2)*(l1-l2)+(l1-l3)*(l1-l3)+(l1-l4)*(l1-l4);
  1475.         if(del<mindel)
  1476.         {
  1477.             mindel=del;
  1478.             L_Grey=i;
  1479.         }
  1480.     }
  1481.     mindel=16777216;
  1482.     for(i=0;i<Num_Color;i++)
  1483.     {
  1484.         l1=Wht.r;
  1485.         l2=Hdr[Img].lut[i].r;
  1486.         l3=Hdr[Img].lut[i].g;
  1487.         l4=Hdr[Img].lut[i].b;
  1488.         del=(l1-l2)*(l1-l2)+(l1-l3)*(l1-l3)+(l1-l4)*(l1-l4);
  1489.         if(del<mindel)
  1490.         {
  1491.             mindel=del;
  1492.             White=i;
  1493.         }
  1494.     }
  1495.     WritePalette(Hdr[Img].lut);
  1496.     return(1);
  1497. }
  1498.  
  1499.  
  1500. /**************************************************************************
  1501. **
  1502. **
  1503. **
  1504. ************************************************************************* */
  1505.  
  1506. int plot_sub_image(fp,sample,filenum)
  1507.  
  1508. FILE *fp;
  1509. int sample,filenum;
  1510.  
  1511. {
  1512.     int i,j,k;
  1513.     long offset;
  1514.  
  1515.     rewind(fp);
  1516.     paint_box(3,0,Mbuff,0,0,ScreenXs,ScreenYs);
  1517.     offset=Hdr[filenum].col;
  1518.     offset*=Yc*Sample;
  1519.     offset+=Xc*Sample;
  1520.     if(Hdr[filenum].header_bytes>0)
  1521.         offset+=Hdr[filenum].header_bytes;
  1522.     fseek(fp,offset,SEEK_SET);
  1523.     Row=ScreenYs;
  1524.     Col=ScreenXs;
  1525.     if((Yc*Sample+Row*sample)>Hdr[filenum].row)
  1526.         Row=(Hdr[filenum].row-Yc*Sample)/sample;
  1527.     if((Xc*Sample+Col*sample)>Hdr[filenum].col)
  1528.         Col=(Hdr[filenum].col-Xc*Sample)/sample;
  1529.     offset=Hdr[filenum].col;
  1530.     offset*=(sample-1);
  1531.     for(i=0;i<Row;i++)
  1532.     {
  1533.         if(fread((char *)Mbuff[0],sizeof(char),Hdr[filenum].col,fp)<1)
  1534.         {
  1535.             return(-1);
  1536.         }
  1537.         fseek(fp,offset,SEEK_CUR);
  1538.         if(sample>1)
  1539.             for(j=0;j<Col;j++)
  1540.                 Mbuff[0][j]=Mbuff[0][j*sample];
  1541.         if(VideoType=='V'||VideoType=='E')
  1542.         {
  1543.             if(ActiveLut=='P')
  1544.             {
  1545.                 for(j=0;j<Col;j++)
  1546.                     Mbuff[0][j]=Hdr[filenum].vga_color[Mbuff[0][j]];
  1547.             }
  1548.             else
  1549.             {
  1550.                 for(j=0;j<Col;j++)
  1551.                     Mbuff[0][j]/=16;
  1552.             }
  1553.         }
  1554.         plotrow(3,0,Col-1,i,Mbuff[0]);
  1555.     }
  1556.  
  1557.     return(1);
  1558. }
  1559.  
  1560.  
  1561. /**************************************************************************
  1562. **
  1563. **
  1564. **
  1565. ************************************************************************* */
  1566.  
  1567. int plot_full_image(fp,sample,filenum)
  1568.  
  1569. FILE *fp;
  1570. int sample,filenum;
  1571.  
  1572. {
  1573.     int i,j,k;
  1574.     long offset;
  1575.     char string[100];
  1576.     int row,col;
  1577.     FILE *fpsub;
  1578.  
  1579.     strcpy(string,Hdr[filenum].image);
  1580.     for(i=0;i<strlen(string);i++)
  1581.         if(string[i]=='.')
  1582.             string[i]='\0';
  1583.     strcat(string,SubType);
  1584.     fpsub=open_to_read_binary(string);
  1585.     if(fpsub)
  1586.     {
  1587.         fread((char *)&row,sizeof(int),1,fpsub);
  1588.         fread((char *)&col,sizeof(int),1,fpsub);
  1589.         for(i=0;i<row;i++)
  1590.         {
  1591.             fread((char *)Mbuff[0],sizeof(char),col,fpsub);
  1592.             plotrow(0,0,col-1,i,Mbuff[0]);
  1593.         }
  1594.         fclose(fpsub);
  1595.     }
  1596.     else
  1597.     {
  1598.         rewind(fp);
  1599.         offset=Hdr[filenum].header_bytes;
  1600.         if(offset>0)
  1601.             fseek(fp,offset,SEEK_SET);
  1602.         offset=(sample-1);
  1603.         offset*=Hdr[filenum].col;
  1604.         for(i=0;i<Row;i++)
  1605.         {
  1606.             fread((char *)Mbuff[0],sizeof(char),Hdr[filenum].col,fp);
  1607.             if(offset>0)
  1608.                 fseek(fp,offset,SEEK_CUR);
  1609.             if(sample>1)
  1610.                 for(j=0;j<Col;j++)
  1611.                     Mbuff[0][j]=Mbuff[0][j*sample];
  1612.             if(VideoType=='V'||VideoType=='E')
  1613.             {
  1614.                 if(ActiveLut=='P')
  1615.                 {
  1616.                     for(j=0;j<Col;j++)
  1617.                         Mbuff[0][j]=Hdr[filenum].vga_color[Mbuff[0][j]];
  1618.                 }
  1619.                 else
  1620.                 {
  1621.                     for(j=0;j<Col;j++)
  1622.                         Mbuff[0][j]/=16;
  1623.                 }
  1624.             }
  1625.             plotrow(3,0,Col-1,i,Mbuff[0]);
  1626.         }
  1627.         if(sample>1)
  1628.         {
  1629.             fpsub=open_to_write_binary(string);
  1630.             if(fpsub)
  1631.             {
  1632.                 fwrite((char *)&Row,sizeof(int),1,fpsub);
  1633.                 fwrite((char *)&Col,sizeof(int),1,fpsub);
  1634.                 for(i=0;i<Row;i++)
  1635.                 {
  1636.                     getrow(0,0,Col-1,i,Mbuff[0]);
  1637.                     fwrite((char *)Mbuff[0],sizeof(char),Col,fpsub);
  1638.                 }
  1639.                 fclose(fpsub);
  1640.             }
  1641.         }
  1642.     }
  1643. }
  1644.  
  1645.  
  1646.  
  1647. /**************************************************************************
  1648. **
  1649. **
  1650. **
  1651. ************************************************************************* */
  1652.  
  1653. int limit_area_fixed(xc,yc,xs,ys,speed,sample)
  1654.  
  1655. int *xc,*yc,*xs,*ys,*speed,*sample;
  1656.  
  1657. {
  1658.     int i,j,k;
  1659.     int xco=*xc,yco=*yc,xso,yso;
  1660.     char ans;
  1661.  
  1662.     xso=*xs=ScreenXs/Sample*(*sample);
  1663.     yso=*ys=ScreenYs/Sample*(*sample);
  1664.  
  1665.     tbox_val(3,*xc,*yc,*xs,*ys,Mbuff,Black,White,Center);
  1666.     do
  1667.     {
  1668.         ans=getch();
  1669.         unbox(3,*xc,*yc,*xs,*ys,Mbuff);
  1670.         if(ans==27)
  1671.         {
  1672.             return(27);
  1673.         }
  1674.         else if(ans=='-'&&*speed>1)*speed/=2;
  1675.         else if(ans=='+'&&*speed<ScreenYs)*speed*=2;
  1676.         else if(ans=='l'&&*sample<Sample)
  1677.             *sample+=1;
  1678.         else if(ans=='s'&&*sample>1)
  1679.             *sample-=1;
  1680.         *xs=ScreenXs/Sample*(*sample);
  1681.         *ys=ScreenYs/Sample*(*sample);
  1682.  
  1683.         if(ans==0)
  1684.         {
  1685.             ans=getch();
  1686.             if(ans==71)
  1687.             {
  1688.                 *xc-=*speed;
  1689.                 *yc-=*speed;
  1690.             }
  1691.             else if(ans==73)
  1692.             {
  1693.                 *xc+=*speed;
  1694.                 *yc-=*speed;
  1695.             }
  1696.             else if(ans==79)
  1697.             {
  1698.                 *xc-=*speed;
  1699.                 *yc+=*speed;
  1700.             }
  1701.             else if(ans==81)
  1702.             {
  1703.                 *xc+=*speed;
  1704.                 *yc+=*speed;
  1705.             }
  1706.             else if(ans==72)
  1707.                 *yc-=*speed;
  1708.             else if(ans==80)
  1709.                 *yc+=*speed;
  1710.             else if(ans==75)
  1711.                 *xc-=*speed;
  1712.             else if(ans==77)
  1713.                 *xc+=*speed;
  1714.         }
  1715.         if(*xs>ScreenXs)*xs=ScreenXs;
  1716.         if(*ys>ScreenYs)*ys=ScreenYs;
  1717.         if(*xs<2)*xs=2;
  1718.         if(*ys<2)*ys=2;
  1719.         if((*xc+*xs)>=ScreenXs)*xc=ScreenXs-*xs;
  1720.         if((*yc+*ys)>=ScreenYs)*yc=ScreenYs-*ys;
  1721.         if(*xc<0)*xc=0;
  1722.         if(*yc<0)*yc=0;
  1723.         tbox_val(3,*xc,*yc,*xs,*ys,Mbuff,Black,White,Center);
  1724. }while(ans!=83&&ans!=27&&ans!=13);
  1725.     unbox(3,*xc,*yc,*xs,*ys,Mbuff);
  1726.     return(ans);
  1727. }
  1728.  
  1729.  
  1730. /**************************************************************************
  1731. **
  1732. **
  1733. **
  1734. ************************************************************************* */
  1735.  
  1736. int read_lbl(label,filenum)
  1737.  
  1738. char *label;
  1739. int filenum;
  1740.  
  1741. {
  1742.     int i,j,k;
  1743.     char string1[100],string2[100],string3[100];
  1744.     FILE *fp;
  1745.     int status=1,numread;
  1746.  
  1747.     fp=open_to_read_binary(label);
  1748.     if(!fp)
  1749.         return(-1);
  1750.     Hdr[filenum].sample_bits=Hdr[filenum].record_bytes=0;
  1751.     Hdr[filenum].file_records=0;
  1752.     Hdr[filenum].pal_type=0;
  1753.     Hdr[filenum].row_col_header=0;
  1754.     Hdr[filenum].Lut[0]='\0';
  1755.     while(fscanf(fp,"%s",string1)==1)
  1756.     {
  1757.         if(strcmpi(string1,"end")==0)
  1758.         {
  1759.             fclose(fp);
  1760.             return(status);
  1761.         }
  1762.         if(strcmpi(string1,"image_lines")==0&&Hdr[filenum].file_records==0)
  1763.         {
  1764.             numread=fscanf(fp,"%s%s",string2,string3);
  1765.             if(strcmpi(string2,"end")==0||strcmpi(string3,"end")==0||
  1766.                 numread<2)
  1767.             {
  1768.                 fclose(fp);
  1769.                 return(status);
  1770.             }            
  1771.             sscanf(string3,"%d",&Hdr[filenum].row);
  1772.             printf("Row = %d\n",Hdr[filenum].row);
  1773.         }
  1774.         if(strcmpi(string1,"sample_bits")==0)
  1775.         {
  1776.             numread=fscanf(fp,"%s%s",string2,string3);
  1777.             if(strcmpi(string2,"end")==0||strcmpi(string3,"end")==0||
  1778.                 numread<2)
  1779.             {
  1780.                 fclose(fp);
  1781.                 return(status);
  1782.             }            
  1783.             sscanf(string3,"%d",&Hdr[filenum].sample_bits);
  1784.             printf("Sample_Bits = %d\n",Hdr[filenum].sample_bits);
  1785.         }
  1786.         if(strcmpi(string1,"file_records")==0)
  1787.         {
  1788.             numread=fscanf(fp,"%s%s",string2,string3);
  1789.             if(strcmpi(string2,"end")==0||strcmpi(string3,"end")==0||
  1790.                 numread<2)
  1791.             {
  1792.                 fclose(fp);
  1793.                 return(status);
  1794.             }            
  1795.             sscanf(string3,"%d",&Hdr[filenum].row);
  1796.             printf("Row = %d\n",Hdr[filenum].row);
  1797.             Hdr[filenum].file_records=Hdr[filenum].row;
  1798.         }
  1799.         if(strcmpi(string1,"line_samples")==0&&Hdr[filenum].record_bytes==0)
  1800.         {
  1801.             numread=fscanf(fp,"%s%s",string2,string3);
  1802.             if(strcmpi(string2,"end")==0||strcmpi(string3,"end")==0||
  1803.                 numread<2)
  1804.             {
  1805.                 fclose(fp);
  1806.                 return(status);
  1807.             }            
  1808.             sscanf(string3,"%d",&Hdr[filenum].col);
  1809.             printf("Col = %d\n",Hdr[filenum].col);
  1810.         }
  1811.         if(strcmpi(string1,"record_bytes")==0||
  1812.             strcmpi(string1,"image_record_bytes")==0)
  1813.         {
  1814.             numread=fscanf(fp,"%s%s",string2,string3);
  1815.             if(strcmpi(string2,"end")==0||strcmpi(string3,"end")==0||
  1816.                 numread<2)
  1817.             {
  1818.                 fclose(fp);
  1819.                 return(status);
  1820.             }            
  1821.             sscanf(string3,"%d",&Hdr[filenum].col);
  1822.             printf("Col = %d\n",Hdr[filenum].col);
  1823.             Hdr[filenum].record_bytes=Hdr[filenum].col;
  1824.         }
  1825.         if(strcmpi(string1,"header_bytes")==0)
  1826.         {
  1827.             numread=fscanf(fp,"%s%s",string2,string3);
  1828.             if(strcmpi(string2,"end")==0||strcmpi(string3,"end")==0||
  1829.                 numread<2)
  1830.             {
  1831.                 fclose(fp);
  1832.                 return(status);
  1833.             }            
  1834.             sscanf(string3,"%d",&Hdr[filenum].header_bytes);
  1835.             printf("Header_Bytes = %d\n",Hdr[filenum].header_bytes);
  1836.         }
  1837.         if(strcmpi(string1,"image_pointer")==0)
  1838.         {
  1839.             numread=fscanf(fp,"%s%s",string2,string3);
  1840.             if(strcmpi(string2,"end")==0||strcmpi(string3,"end")==0||
  1841.                 numread<2)
  1842.             {
  1843.                 fclose(fp);
  1844.                 return(status);
  1845.             }            
  1846.             k=0;
  1847.             for(i=0;i<strlen(string3);i++)
  1848.                 if(string3[i]!=39)        /* single quote */
  1849.                     Hdr[filenum].image[k++]=string3[i];
  1850.             Hdr[filenum].image[k]='\0';
  1851.             printf("Image = %s\n",Hdr[filenum].image);
  1852.         }
  1853.         if(strcmpi(string1,"pal_type")==0)
  1854.         {
  1855.             numread=fscanf(fp,"%s%s",string2,string3);
  1856.             if(strcmpi(string2,"end")==0||strcmpi(string3,"end")==0||
  1857.                 numread<2)
  1858.             {
  1859.                 fclose(fp);
  1860.                 return(status);
  1861.             }            
  1862.             k=0;
  1863.             for(i=0;i<strlen(string3);i++)
  1864.                 if(string3[i]!=39)        /* single quote */
  1865.                     string1[k++]=string3[i];
  1866.             string1[k]='\0';
  1867.             Hdr[filenum].pal_type=string1[0];
  1868.             printf("Pal_Type = %c\n",Hdr[filenum].pal_type);
  1869.         }
  1870.         if(strcmpi(string1,"pal_pointer")==0)
  1871.         {
  1872.             numread=fscanf(fp,"%s%s",string2,string3);
  1873.             if(strcmpi(string2,"end")==0||strcmpi(string3,"end")==0||
  1874.                 numread<2)
  1875.             {
  1876.                 fclose(fp);
  1877.                 return(status);
  1878.             }            
  1879.             k=0;
  1880.             for(i=0;i<strlen(string3);i++)
  1881.                 if(string3[i]!=39)        /* single quote */
  1882.                     Hdr[filenum].Lut[k++]=string3[i];
  1883.             Hdr[filenum].Lut[k]='\0';
  1884.             printf("Lut = %s\n",Hdr[filenum].Lut);
  1885.         }
  1886.         if(strcmpi(string1,"row_col_header")==0)
  1887.         {
  1888.             numread=fscanf(fp,"%s%s",string2,string3);
  1889.             if(strcmpi(string2,"end")==0||strcmpi(string3,"end")==0||
  1890.                 numread<2)
  1891.             {
  1892.                 fclose(fp);
  1893.                 return(status);
  1894.             }            
  1895.             Hdr[filenum].row_col_header=1;
  1896.             Hdr[filenum].header_bytes=4;
  1897.         }
  1898.     }
  1899.     fclose(fp);
  1900.     return(status);
  1901. }
  1902.  
  1903.  
  1904.  
  1905. /********************************************************************
  1906. **
  1907. **        returns:
  1908. **
  1909. **            -3 -- too many files of type given
  1910. **            -2 -- no such files
  1911. **            -1 -- no file chosen
  1912. **          >=0 -- number of file chosen = n of String[n]
  1913. **
  1914. **
  1915. ********************************************************************* */
  1916.  
  1917. int D_get_file_name(file_id,file_name)
  1918.  
  1919. char *file_id,*file_name;
  1920.  
  1921. {
  1922.     int i,j,k;
  1923.     int num_files;
  1924.     int val=-2;
  1925.     char string[NAME_SIZE],file[F_SIZE],type[T_SIZE],directory[NAME_SIZE];
  1926.     int t=0,d=0,ls=-1;
  1927.     char s2[100];
  1928.  
  1929.     Monitor=check_equip(&Eq);
  1930.  
  1931.     for(i=0;i<strlen(file_id);i++)
  1932.         if(file_id[i]=='\\')
  1933.             ls=i;
  1934.     if(ls>0)
  1935.     {
  1936.         d=1;
  1937.         strcpy(directory,file_id);
  1938.         directory[ls+1]='\0';
  1939.     }
  1940.     else
  1941.         directory[0]='\0';
  1942.  
  1943.     num_files=D_load_File(file_id);
  1944.     if(num_files<0)
  1945.         return(num_files);
  1946.     else
  1947.     {
  1948.         ClearBox(40,79,0,0,112);
  1949.         sprintf(string," core id      Top (ft)  Bottom (ft)");
  1950.         WriteStringAtxy(40,0,39,(char)112,string);
  1951.         val=scroll_list(40,1,40,21,GF_String,num_files,file_name);
  1952.         if(val>=0)
  1953.         {
  1954.             strcpy(s2,file_name);
  1955.             sprintf(file_name,"%c%c%c%c%c%c%c%c.lbl",
  1956.                 s2[0],s2[2],s2[3],s2[4],s2[5],s2[7],s2[8],s2[9]);
  1957.         }    
  1958.     }
  1959.     return(val);
  1960. }
  1961.  
  1962. /********************************************************************
  1963. **
  1964. **    looks for a file named in a global char *DepthFile
  1965. **
  1966. **    format is:
  1967. **
  1968. **         filename   top_depth_in_feet   bottom_depth_in_feet
  1969. **
  1970. **   e.g.:
  1971. **
  1972. **       D356001   5472   5497
  1973. **       D356002   5497   5524
  1974. **       D356003   5524   5551
  1975. **       D356004   5551   5573
  1976. **
  1977. ********************************************************************* */
  1978.  
  1979. int D_load_File(instring)
  1980.  
  1981. char *instring;
  1982.  
  1983. {
  1984.     int i,i1;
  1985.     int num_files;
  1986.     int mo,da,yr,hr,min;
  1987.     char string[100],type[100],path[100];
  1988.     FILE *fpin;
  1989.     char name[100];
  1990.     float d1,d2;
  1991.  
  1992.     num_files=load_names(instring);
  1993.     if(num_files>=MAX_NUM)
  1994.         return(-3);
  1995.     if(num_files==0)
  1996.         return(-2);
  1997.     sort_name(num_files);
  1998.  
  1999.     fpin=open_to_read_binary(DepthFile);
  2000.     if(!fpin)
  2001.     {
  2002.         printf("Could not open '%s'\n",DepthFile);
  2003.         exit(0);
  2004.     }    
  2005.     for(i=0;i<num_files;i++)
  2006.     {
  2007.         i1=GF_Order[i];
  2008.         file_name(GF_File[i1].name,string,type);
  2009.         date_convert(GF_File[i1].date,&mo,&da,&yr);
  2010.         time_convert(GF_File[i1].time,&hr,&min);
  2011.         sprintf(GF_String[i],"%s %s%9ld %2d/%02d/%2d %02d%02d  "
  2012.             ,string,type,GF_File[i1].size,mo,da,yr,hr,min);
  2013.     }
  2014.     while(fscanf(fpin,"%s%f%f",name,&d1,&d2)==3)
  2015.     {
  2016.         for(i=0;i<num_files;i++)
  2017.         {
  2018.             i1=GF_Order[i];
  2019.             split(GF_File[i1].name,path,string,type);
  2020.             {
  2021.                 if(strcmpi(string,name)==0)
  2022.                 {
  2023.                     if(string[0]=='T'||string[0]=='t')
  2024.                         sprintf(GF_String[i],
  2025.                             "%c %c%c%c%c %c%c%c         %8.2f     ",
  2026.                             string[0],string[1],string[2],string[3],
  2027.                             string[4],string[5],string[6],string[7],d1);
  2028.                     else
  2029.                         sprintf(GF_String[i],
  2030.                             "%c %c%c%c%c %c%c%c    %5.0f     %5.0f   ",    
  2031.                             string[0],string[1],string[2],string[3],
  2032.                             string[4],string[5],string[6],string[7],d1,d2);
  2033.                     D1[i1]=d1;
  2034.                     D2[i1]=d2;
  2035.                 }
  2036.             }
  2037.         }
  2038.     }
  2039.     return(num_files);
  2040. }
  2041.  
  2042.  
  2043. /***********************************************************************
  2044. **
  2045. **
  2046. **
  2047. **
  2048. ************************************************************************/
  2049.  
  2050. int add_graticule()
  2051.  
  2052. {
  2053.     float pixsize=M.Pixsize;
  2054.     double sp;
  2055.  
  2056.     miv.type=M.Type;
  2057.     miv.indat[0]=pixsize;
  2058.     miv.indat[1]=M.Clat;
  2059.     miv.indat[2]=M.Clon;
  2060.     miv.indat[3]=M.Clon;
  2061.     miv.indat[4]=M.Clat+10;
  2062.     miv.indat[5]=M.Clat-10;
  2063.     map_pos.xc=0;    
  2064.     map_pos.yc=0;
  2065.     map_pos.xs=ScreenXs;
  2066.     map_pos.ys=ScreenYs;
  2067.     auto_set_cc(miv.type,miv.indat);
  2068.     screen_mm();
  2069.  
  2070.     if(pixsize>5.0)
  2071.     {
  2072.         sp=10;
  2073.         plot_graticule(Font,M.Grat,M.LatLon,sp,M.GratOn);
  2074.     }
  2075.     if(pixsize>2.5&&pixsize<=5.0)
  2076.     {
  2077.         sp=5;
  2078.         plot_graticule(Font,M.Grat,M.LatLon,sp,M.GratOn);
  2079.     }
  2080.     if(pixsize<=2.5&&pixsize>0.5)
  2081.     {
  2082.         sp=1;
  2083.         plot_graticule(Font,M.Grat,M.LatLon,sp,M.GratOn);
  2084.     }
  2085.     if(pixsize<=0.5&&pixsize>0.25)
  2086.     {
  2087.         sp=0.5;                                    
  2088.         plot_graticule_frac(Font,M.Grat,M.LatLon,sp,M.GratOn);
  2089.     }
  2090.     if(pixsize<=0.25&&pixsize>0.05)
  2091.     {
  2092.         sp=0.1;
  2093.         plot_graticule_frac(Font,M.Grat,M.LatLon,sp,M.GratOn);
  2094.     }
  2095.     if(pixsize<=0.05&&pixsize>0.025)
  2096.     {
  2097.         sp=0.05;
  2098.         plot_graticule_frac(Font,M.Grat,M.LatLon,sp,M.GratOn);
  2099.     }
  2100.     if(pixsize<=0.025&&pixsize>0.005)
  2101.     {
  2102.         sp=0.01;
  2103.         plot_graticule_frac(Font,M.Grat,M.LatLon,sp,M.GratOn);
  2104.     }
  2105.     if(pixsize<=0.005&&pixsize>0.0025)
  2106.     {
  2107.         sp=0.005;
  2108.         plot_graticule_frac(Font,M.Grat,M.LatLon,sp,M.GratOn);
  2109.     }
  2110.     if(pixsize<=0.0025)
  2111.     {
  2112.         sp=0.001;
  2113.         plot_graticule_frac(Font,M.Grat,M.LatLon,sp,M.GratOn);
  2114.     }
  2115. }
  2116.  
  2117.  
  2118.  
  2119. /***********************************************************************
  2120. **
  2121. **
  2122. **
  2123. **
  2124. ************************************************************************/
  2125.  
  2126. FILE *open_to_write_text(name)
  2127.  
  2128. char *name;
  2129.  
  2130. {
  2131.     int i,j,k;
  2132.     FILE *fp;
  2133.     char string[STR_LEN];
  2134.  
  2135.     for(j=0;j<NumPath;j++)
  2136.     {
  2137.         sprintf(string,"%s%s",Path[j],name);
  2138.         fp=fopen(string,"wt");
  2139.         if(fp)
  2140.         {
  2141.             strcpy(LastFile,name);
  2142.             return(fp);
  2143.         }
  2144.     }
  2145.     clearerr(fp);
  2146.     fp=NULL;
  2147.     return(fp);
  2148. }
  2149.  
  2150. /***********************************************************************
  2151. **
  2152. **
  2153. **
  2154. **
  2155. ************************************************************************/
  2156.  
  2157. FILE *open_to_write_binary(name)
  2158.  
  2159. char *name;
  2160.  
  2161. {
  2162.     int i,j,k;
  2163.     FILE *fp;
  2164.     char string[STR_LEN];
  2165.  
  2166.     for(j=0;j<NumPath;j++)
  2167.     {
  2168.         sprintf(string,"%s%s",Path[j],name);
  2169.         fp=fopen(string,"wb");
  2170.         if(fp)
  2171.         {
  2172.             strcpy(LastFile,name);
  2173.             return(fp);
  2174.         }
  2175.     }
  2176.     clearerr(fp);
  2177.     fp=NULL;
  2178.     return(fp);
  2179. }
  2180.  
  2181.  
  2182. /***********************************************************************
  2183. **
  2184. **
  2185. **
  2186. **
  2187. ************************************************************************/
  2188.  
  2189. FILE *open_to_read_binary(name)
  2190.  
  2191. char *name;
  2192.  
  2193. {
  2194.     int i,j,k;
  2195.     FILE *fp;
  2196.     char string[STR_LEN];
  2197.     int len;
  2198.  
  2199.     string[0]='\0';
  2200.     for(j=0;j<NumPath;j++)
  2201.     {
  2202.         len=strlen(Path[j])+strlen(name);
  2203.         if(len>0&&len<STR_LEN);
  2204.         {
  2205.             sprintf(string,"%s%s",Path[j],name);
  2206.             fp=fopen(string,"rb");
  2207.             if(fp)
  2208.             {
  2209.                 strcpy(LastFile,name);
  2210.                 return(fp);
  2211.             }    
  2212.         }
  2213.     }
  2214.     clearerr(fp);
  2215.     fp=NULL;
  2216.     return(fp);
  2217. }
  2218.  
  2219. /**************************************************************************
  2220. **
  2221. **
  2222. **
  2223. ************************************************************************* */
  2224.  
  2225. int add_disk_path(string)
  2226.  
  2227. char *string;
  2228.  
  2229. {
  2230.     int i,j,k;
  2231.     char dsk,pth[STR_LEN],nam[10],typ[10],str[STR_LEN];
  2232.     int match,add=0;
  2233.  
  2234.     dsk=fsplit(string,pth,nam,typ);
  2235.     if(dsk>0)
  2236.         sprintf(str,"%c:%s",dsk,pth);
  2237.     else
  2238.         sprintf(str,"%s",pth);
  2239.     if((dsk>0||strlen(pth)>0)&&NumPath<NUM_DP)
  2240.     {
  2241.         match=0;
  2242.         for(i=0;i<NumPath;i++)
  2243.         {
  2244.             if(strcmpi(Path[i],str)==0)
  2245.                 match=1;
  2246.         }
  2247.         if(match==0)
  2248.         {
  2249.             strcpy(Path[NumPath],str);
  2250.             NumPath+=1;
  2251.             add+=1;
  2252.         }
  2253.     }
  2254.     return(add);
  2255. }
  2256.  
  2257. /**************************************************************************
  2258. **
  2259. **
  2260. **
  2261. ************************************************************************* */
  2262.  
  2263. char fsplit(instring,path,name,type)
  2264.  
  2265. char *instring,*path,*name,*type;
  2266.  
  2267. {
  2268.     int i,j,k;
  2269.     int dot=-1,last_slash=-1,len=strlen(instring),first_slash=-1;
  2270.     int num=0,colon=-1;
  2271.     int disk=0;
  2272.     char string[STR_LEN];
  2273.  
  2274.     strcpy(string,instring);
  2275.     path[0]='\0';
  2276.     name[0]='\0';
  2277.     type[0]='\0';
  2278.  
  2279.     for(i=0;i<len;i++)
  2280.     {
  2281.         if(string[i]==':')
  2282.             colon=i;
  2283.         else if(string[i]=='\\')
  2284.         {
  2285.             last_slash=i;
  2286.             if(first_slash<0)
  2287.                 first_slash=i;
  2288.         }    
  2289.         else if(string[i]=='.')
  2290.             dot=i;
  2291.     }
  2292.     if(dot<0&&first_slash>=0&&last_slash<len-1)  /* d:test */
  2293.     {
  2294.         string[len]='\\';
  2295.         last_slash=len;
  2296.         len+=1;
  2297.         string[len]='\0';
  2298.     }
  2299.     if(dot<0&&first_slash<0&&len>colon-1)
  2300.     {
  2301.         string[len]='.';
  2302.         dot=len;
  2303.         len+=1;
  2304.         string[len]='\0';
  2305.     }
  2306.     if(colon>0)
  2307.         disk=string[0];
  2308.     if(first_slash>=0)
  2309.     {
  2310.         for(i=first_slash;i<=last_slash;i++)
  2311.             path[i-first_slash]=string[i];
  2312.         path[last_slash-first_slash+1]='\0';
  2313.     }
  2314.     if(last_slash>0&&last_slash<len-1&&dot>0)
  2315.     {
  2316.         for(i=last_slash+1;i<dot;i++)
  2317.             name[i-last_slash-1]=string[i];
  2318.         name[dot-last_slash-1]='\0';
  2319.     }
  2320.     if(colon>0&&last_slash<0&&dot>0)    /* d:test.img */
  2321.     {
  2322.         for(i=colon+1;i<dot;i++)
  2323.             name[i-colon-1]=string[i];
  2324.         name[dot-colon]='\0';
  2325.     }
  2326.     if(colon<0&&last_slash<0&&dot>0)    /* test.img */
  2327.     {
  2328.         for(i=0;i<dot;i++)
  2329.             name[i]=string[i];
  2330.         name[dot]='\0';
  2331.     }
  2332.     if(dot>0&&dot<len-1)
  2333.     {
  2334.         for(i=dot+1;i<len;i++)
  2335.             type[i-dot-1]=string[i];
  2336.         type[len-dot-1]='\0';
  2337.         if(strlen(type)>3)
  2338.             type[3]='\0';
  2339.     }
  2340.     return(disk);
  2341. }
  2342.  
  2343.  
  2344. /**************************************************************************
  2345. **
  2346. **
  2347. **
  2348. ************************************************************************* */
  2349.  
  2350. int annotate(ix,iy,size,color)
  2351.  
  2352. int *ix,*iy,*size,*color;
  2353.  
  2354. {
  2355.     int i,j,k;
  2356.     char string[STR_LEN],ans,ans2;
  2357.     int xc=*ix,yc=*iy,xs=ScreenXs-(*ix),ys=28/(*size),speed=16;
  2358.     int cxc=0,cyc=ScreenYs-28/(*size),cxs=ScreenXs,cys=28/(*size);
  2359.     int background=0;
  2360.  
  2361.     if(*color==0)
  2362.         background=M.Back;
  2363.     save_box(0,background,Mbuff,cxc,cyc,cxs,cys);
  2364.     i=0;
  2365.     string[0]='\0';
  2366.     do
  2367.     {
  2368.         ans=getch();
  2369.         if(ans==8&&i>0)
  2370.         {
  2371.             i-=1;
  2372.             string[i]='\0';
  2373.             unsave_box(0,background,Mbuff,cxc,cyc,cxs,cys);
  2374.             save_box(0,background,Mbuff,cxc,cyc,cxs,cys);
  2375.             plot_font_h(*color,cxc,cyc,string,*size,Font);
  2376.         }
  2377.         if(ans>=0x20)
  2378.         {
  2379.             string[i]=ans;
  2380.             string[i+1]='\0';
  2381.             plot_font_h(*color,cxc,cyc,string,*size,Font);
  2382.             i+=1;
  2383.         }
  2384.         if(ans==0)
  2385.         {
  2386.             ans2=getch();
  2387.             if(ans2>=71&&ans2<=73)
  2388.                 *color+=1;
  2389.             if(ans2>=79&&ans2<=81)
  2390.                 *color-=1;
  2391.             if(*color>15)
  2392.                 *color=0;
  2393.             if(*color<0)
  2394.                 *color=15;
  2395.             if(*color==0)
  2396.                 background=M.Back;
  2397.             else
  2398.                 background=0;
  2399.             unsave_box(0,background,Mbuff,cxc,cyc,cxs,cys);
  2400.             if(ans2==75&&*size<4)
  2401.                 *size+=1;
  2402.             if(ans2==77&&*size>1)
  2403.                 *size-=1;
  2404.             cyc=ScreenYs-28/(*size);
  2405.             ys=cys=28/(*size);
  2406.             save_box(0,background,Mbuff,cxc,cyc,cxs,cys);
  2407.             plot_font_h(*color,cxc,cyc,string,*size,Font);
  2408.         }
  2409.     }while(ans!=27&&ans!=13);
  2410.     unsave_box(0,background,Mbuff,cxc,cyc,cxs,cys);
  2411.     if(ans==27)
  2412.         return(ans);
  2413.     xs=strlen(string)*15/(*size);
  2414.     if(limit_area(&xc,&yc,&xs,&ys,&speed,ScreenXs,0,Mbuff)!=27&&
  2415.             strlen(string)>0)
  2416.         plot_font_h(*color,xc,yc,string,*size,Font);
  2417.     *ix=xc;
  2418.     *iy=yc;
  2419.     return(ans);
  2420. }
  2421.  
  2422. /**************************************************************************
  2423. **
  2424. **
  2425. **
  2426. ************************************************************************* */
  2427.  
  2428. int draw_line(ix,iy,color)
  2429.  
  2430. int *ix,*iy,*color;
  2431.  
  2432. {
  2433.     int i,j,k;
  2434.     char string[STR_LEN],ans,ans2;
  2435.     int x1=*ix,x2,y1=*iy,y2,speed=16,xo=*ix,yo=*iy;
  2436.     int val;
  2437.  
  2438.     val=getpt(0,x1,y1);
  2439.     tcursor(3,x1,y1,7,Mbuff);
  2440.     cursor(0,x1,y1,M.Comp_Color[val],7);
  2441.     do
  2442.     {
  2443.         ans=getch();
  2444.         if(ans==0)
  2445.         {
  2446.             ans2=getch();
  2447.             if(ans2==71)
  2448.             {
  2449.                 x1-=speed;
  2450.                 y1-=speed;
  2451.             }
  2452.             if(ans2==73)
  2453.             {
  2454.                 x1+=speed;
  2455.                 y1-=speed;
  2456.             }
  2457.             if(ans2==79)
  2458.             {
  2459.                 x1-=speed;
  2460.                 y1+=speed;
  2461.             }
  2462.             if(ans2==81)
  2463.             {
  2464.                 x1+=speed;
  2465.                 y1+=speed;
  2466.             }
  2467.             if(ans2==72)
  2468.                 y1-=speed;
  2469.             if(ans2==80)
  2470.                 y1+=speed;
  2471.             if(ans2==75)
  2472.                 x1-=speed;
  2473.             if(ans2==77)
  2474.                 x1+=speed;
  2475.             if(x1<0)
  2476.                 x1=0;
  2477.             if(x1>=ScreenXs)
  2478.                 x1=ScreenXs-1;
  2479.             if(y1<0)
  2480.                 y1=0;
  2481.             if(y1>=ScreenYs)
  2482.                 y1=ScreenYs-1;
  2483.         }
  2484.         if(ans=='-'&&speed>2)
  2485.             speed/=2;
  2486.         if(ans=='+'&&speed<128)
  2487.             speed*=2;
  2488.         uncursor(3,xo,yo,7,Mbuff);
  2489.         val=getpt(0,x1,y1);
  2490.         tcursor(3,x1,y1,7,Mbuff);
  2491.         cursor(0,x1,y1,M.Comp_Color[val],7);
  2492.         xo=x1;
  2493.         yo=y1;
  2494.     }while(ans!=27&&ans!=13);
  2495.     uncursor(3,xo,yo,7,Mbuff);
  2496.     if(ans==27)
  2497.         return(ans);
  2498.     xo=x2=x1;yo=y2=y1;
  2499.     tplotln_inv_dot(0,x1,y1,x2,y2,Mbuff,ScreenXs);
  2500.     tcursor(3,x2,y2,7,Buffer);
  2501.     cursor(0,x2,y2,*color,7);
  2502.     do
  2503.     {
  2504.         ans=getch();
  2505.         if(ans==0)
  2506.         {
  2507.             ans2=getch();
  2508.             if(ans2==71)
  2509.             {
  2510.                 x2-=speed;
  2511.                 y2-=speed;
  2512.             }
  2513.             if(ans2==73)
  2514.             {
  2515.                 x2+=speed;
  2516.                 y2-=speed;
  2517.             }
  2518.             if(ans2==79)
  2519.             {
  2520.                 x2-=speed;
  2521.                 y2+=speed;
  2522.             }
  2523.             if(ans2==81)
  2524.             {
  2525.                 x2+=speed;
  2526.                 y2+=speed;
  2527.             }
  2528.             if(ans2==72)
  2529.                 y2-=speed;
  2530.             if(ans2==80)
  2531.                 y2+=speed;
  2532.             if(ans2==75)
  2533.                 x2-=speed;
  2534.             if(ans2==77)
  2535.                 x2+=speed;
  2536.             if(x2<0)
  2537.                 x2=0;
  2538.             if(x2>=ScreenXs)
  2539.                 x2=ScreenXs-1;
  2540.             if(y2<0)
  2541.                 y2=0;
  2542.             if(y2>=ScreenYs)
  2543.                 y2=ScreenYs-1;
  2544.         }
  2545.         if(ans=='c')
  2546.             *color-=1;
  2547.         if(ans=='C')
  2548.             *color+=1;
  2549.         if(*color>15)
  2550.             *color=0;
  2551.         if(*color<0)
  2552.             *color=15;
  2553.         if(ans=='-'&&speed>2)
  2554.             speed/=2;
  2555.         if(ans=='+'&&speed<128)
  2556.             speed*=2;
  2557.         uncursor(0,xo,yo,7,Buffer);
  2558.         unplotln(0,x1,y1,xo,yo,Mbuff);
  2559.         xo=x2;
  2560.         yo=y2;
  2561.         tplotln_inv_dot(0,x1,y1,x2,y2,Mbuff,ScreenXs);
  2562.         plotln(0,x1,y1,x2,y2,*color);
  2563.         tcursor(0,x2,y2,7,Buffer);
  2564.         cursor(0,x2,y2,*color,7);
  2565.     }while(ans!=27&&ans!=13);
  2566.     uncursor(3,xo,yo,7,Buffer);
  2567.     unplotln(0,x1,y1,xo,yo,Mbuff);
  2568.     if(ans==27)
  2569.         return(ans);
  2570.     plotln(0,x1,y1,x2,y2,*color);
  2571.     *ix=x2;
  2572.     *iy=y2;
  2573.     return(ans);
  2574. }
  2575.  
  2576.  
  2577. /**************************************************************************
  2578. **
  2579. **
  2580. **
  2581. ************************************************************************* */
  2582.  
  2583. int vector_plot(pixsize)
  2584.  
  2585. float pixsize;
  2586.  
  2587. {
  2588.     int i,j,k;
  2589.     int v_num=0,val;
  2590.  
  2591.     for(i=0;i<M.Num_Type;i++)
  2592.         Menu_V[i]=M.Group_Name[i];
  2593.     Menu_V[M.Num_Type]=Exit;
  2594.     v_num=M_do_menu(Menu_V,M.Num_Type+1,MENUXC,25,v_num,
  2595.                             M.Mback,M.Text,M.High,Font);
  2596.     i=v_num;
  2597.     if(i>=0&&i<M.Num_Type)
  2598.     {
  2599.         for(j=0;j<M.Ns[i];j++)
  2600.         {
  2601.             if(M.MapFile[i][j].max_pix*PixScale>pixsize
  2602.                 &&M.MapFile[i][j].min_pix*PixScale<=pixsize)
  2603.             {
  2604.                 if(kbhit()>0)
  2605.                 {
  2606.                     val=getch();
  2607.                     if(val==27)
  2608.                         return(-2);
  2609.                 }
  2610.                 convert_bin(M.MapFile[i][j].color,
  2611.                     M.MapFile[i][j].filename);
  2612.             }
  2613.         }
  2614.     }
  2615.     return(0);
  2616. }
  2617.  
  2618.  
  2619. /**************************************************************************
  2620. **
  2621. **
  2622. **
  2623. ************************************************************************* */
  2624.  
  2625. int point_plot(pixsize,start)
  2626.  
  2627. float pixsize;
  2628. int start;
  2629.  
  2630. {
  2631.     int i,j,k;
  2632.     int p_num=start,p_numo=start,val;
  2633.  
  2634.     for(i=0;i<M.NumSymbol;i++)
  2635.         Menu_P[i]=PlaceFile[i].name;
  2636.     Menu_P[M.NumSymbol]="Plot All";
  2637.     Menu_P[M.NumSymbol+1]="All OFF";
  2638.     Menu_P[M.NumSymbol+2]="exit";
  2639.     do
  2640.     {
  2641.         p_num=M_do_menu(Menu_P,M.NumSymbol+3,MENUXC,25,p_num,
  2642.                                 M.Mback,M.Text,M.High,Font);
  2643.         i=p_num;
  2644.         if(i>=0&&i<M.NumSymbol)
  2645.         {
  2646.             p_numo=p_num;
  2647.             PlaceFile[i].on=1;
  2648.             if(PlaceFile[i].on==1&&
  2649.                     pixsize>=PlaceFile[i].min_pix&&pixsize<PlaceFile[i].max_pix)
  2650.                 symbol_plot(i,0);
  2651.         }
  2652.         if(p_num==M.NumSymbol)
  2653.         {
  2654.             for(i=0;i<M.NumSymbol;i++)
  2655.             {
  2656.                 p_numo=0;
  2657.                 PlaceFile[i].on=1;
  2658.                 if(PlaceFile[i].on==1&&
  2659.                     pixsize>=PlaceFile[i].min_pix&&pixsize<PlaceFile[i].max_pix)
  2660.                 symbol_plot(i,0);
  2661.             }
  2662.         }
  2663.         if(p_num==M.NumSymbol+1)
  2664.         {
  2665.             for(i=0;i<M.NumSymbol;i++)
  2666.             {
  2667.                 p_numo=0;
  2668.                 PlaceFile[i].on=0;
  2669.             }
  2670.         }
  2671.     }while(p_num<M.NumSymbol);
  2672.     return(p_numo);
  2673. }
  2674.  
  2675.  
  2676. /**************************************************************************
  2677. **
  2678. **
  2679. **
  2680. ************************************************************************* */
  2681.  
  2682. int search_list(list,string)
  2683.  
  2684. char *list,*string;
  2685.  
  2686. {
  2687.     int i,j,k;
  2688.     int p=-1;
  2689.     int val,kbval;
  2690.  
  2691.     for(j=0;j<NumPath;j++)
  2692.     {
  2693.         if(kbhit()>0)
  2694.         {
  2695.             kbval=getch();
  2696.             if(kbval==27)
  2697.                 return(-2);
  2698.         }
  2699.         sprintf(String,"%s%s",Path[j],list);
  2700.         if(load_names(String)>0)
  2701.             val=get_file_name(String,string);
  2702.         else
  2703.             val=-1;
  2704.         if(val>=0)
  2705.             return(val);
  2706.     }
  2707.     return(val);
  2708. }
  2709.  
  2710.  
  2711. /**************************************************************************
  2712. **
  2713. **
  2714. **
  2715. ************************************************************************* */
  2716.  
  2717. int save_map(name)
  2718.  
  2719. char *name;
  2720.  
  2721. {
  2722.     int i,j,k;
  2723.     FILE *fp;
  2724.     double lat,lon;
  2725.  
  2726.     ScreenXs=MaxXs;
  2727.     ScreenYs=MaxYs;
  2728.     xy_ll((double)(ScreenXs/2),(double)(ScreenYs/2),&lat,&lon);
  2729.     miv.indat[0]=M.Pixsize;
  2730.     miv.indat[1]=M.Clat=lat;
  2731.     miv.indat[2]=M.Clon=lon;
  2732.     miv.indat[3]=M.Clon;
  2733.     miv.indat[4]=M.Clat+10;
  2734.     miv.indat[5]=M.Clat-10;
  2735.     map_pos.xc=0;    
  2736.     map_pos.yc=0;
  2737.     map_pos.xs=ScreenXs;
  2738.     map_pos.ys=ScreenYs;
  2739.     auto_set_cc(miv.type,miv.indat);
  2740.     fp=open_to_write_binary(name);
  2741.     if(!fp)
  2742.         return(-1);
  2743.     strcpy(LastMap,LastFile);
  2744. /*    setbuf(fp,Inbuff);*/
  2745.     M.screen_xs=ScreenXs;
  2746.     M.screen_ys=ScreenYs;
  2747.     fwrite((char *)&M,sizeof(struct map),1,fp);
  2748.     if(M.NumSymbol>0)
  2749.         fwrite((char *)PlaceFile,sizeof(struct symbol_name),M.NumSymbol,fp);
  2750.     for(i=0;i<MaxYs;i++)
  2751.     {
  2752.         getrow(0,0,MaxXs-1,i,Buffer);
  2753.         fwrite((char *)Buffer,sizeof(char),MaxXs,fp);
  2754.     }
  2755.     fclose(fp);
  2756.     return(1);
  2757. }
  2758. /**************************************************************************
  2759. **
  2760. **
  2761. **
  2762. ************************************************************************* */
  2763.  
  2764. int unsave_map(name)
  2765.  
  2766. char *name;
  2767.  
  2768. {
  2769.     int i,j,k;
  2770.     FILE *fp;
  2771.  
  2772.     ScreenXs=MaxXs;
  2773.     ScreenYs=MaxYs;
  2774.     fp=open_to_read_binary(name);
  2775.     if(fp==NULL)
  2776.         return(-1);
  2777.     strcpy(LastMap,LastFile);
  2778. /*    setbuf(fp,Inbuff);*/
  2779.     fread((char *)&M,sizeof(struct map),1,fp);
  2780.     if(M.NumSymbol>0)
  2781.         fread((char *)PlaceFile,sizeof(struct symbol_name),M.NumSymbol,fp);
  2782.     ScreenXs=M.screen_xs;
  2783.     ScreenYs=M.screen_ys;
  2784.     WritePalette(M.lut); 
  2785.     for(i=0;i<MaxYs;i++)
  2786.     {
  2787.         fread((char *)Buffer,sizeof(char),MaxXs,fp);
  2788.         plotrow(0,0,MaxXs-1,i,Buffer);
  2789.     }
  2790.     fclose(fp);
  2791.     miv.indat[0]=M.Pixsize;
  2792.     miv.indat[1]=M.Clat;
  2793.     miv.indat[2]=M.Clon;
  2794.     miv.indat[3]=M.Clon;
  2795.     miv.indat[4]=M.Clat+10;
  2796.     miv.indat[5]=M.Clat-10;
  2797.     miv.type=M.Type;
  2798.     map_pos.xc=0;    
  2799.     map_pos.yc=0;
  2800.     map_pos.xs=ScreenXs;
  2801.     map_pos.ys=ScreenYs;
  2802.     auto_set_cc(miv.type,miv.indat);
  2803.     screen_mm();
  2804.     if(M.Num_Type>NUM_TYPE)
  2805.     {
  2806.         SetVideoMode(0);
  2807.         printf("Too many vector groups.\n");
  2808.         exit(0);
  2809.     }
  2810.     for(i=0;i<M.Num_Type;i++)
  2811.     {
  2812.         strcpy(T_Menu_L[i][0],M.Group_Name[i]);
  2813.         strcat(T_Menu_L[i][0]," OFF");
  2814.         strcpy(T_Menu_L[i][1],M.Group_Name[i]);
  2815.         strcat(T_Menu_L[i][1]," ON");
  2816.     }
  2817.     i=M.Num_Type;
  2818.     strcpy(T_Menu_L[i+0][0],"all ON");
  2819.     strcpy(T_Menu_L[i+0][1],"all ON");
  2820.     strcpy(T_Menu_L[i+1][0],"all OFF");
  2821.     strcpy(T_Menu_L[i+1][1],"all OFF");
  2822.     strcpy(T_Menu_L[i+2][0],"exit");
  2823.     strcpy(T_Menu_L[i+2][1],"exit");
  2824.     return(1);
  2825. }
  2826.  
  2827. /**************************************************************************
  2828. **
  2829. **
  2830. **
  2831. ************************************************************************* */
  2832.  
  2833. int video_on()
  2834.  
  2835. {
  2836.     int i,row;
  2837.  
  2838.     i=GetVideoBoardID();
  2839. #ifdef NUMBER9
  2840.     VideoType='X';
  2841.     B_Id.row=1024;
  2842.     B_Id.col=1024;
  2843.     ScreenXs=1024;
  2844.     ScreenYs=1024;
  2845.     strcpy(Suffix,".nmp");
  2846.     FontSize=1;
  2847. #else
  2848.     if(VideoType=='X')
  2849.     {
  2850.         row=SetVideoMode(480,&B_Id);
  2851.         if(B_Id.row<400)
  2852.             VideoType='V';
  2853.         else
  2854.         {
  2855.             ScreenXs=640;
  2856.             ScreenYs=row;
  2857.         }
  2858.         if(B_Id.row==480)
  2859.             strcpy(Suffix,".xmp");
  2860.         else
  2861.             strcpy(Suffix,".ymp");
  2862.     }
  2863.     if(VideoType=='Y')
  2864.     {
  2865.         row=SetVideoMode(400,&B_Id);
  2866.         if(B_Id.row<400)
  2867.             VideoType='V';
  2868.         else
  2869.         {
  2870.             ScreenXs=640;
  2871.             ScreenYs=row;
  2872.         }
  2873.         strcpy(Suffix,".ymp");
  2874.     }
  2875.     if(VideoType=='V')
  2876.     {
  2877.         row=SetVideoMode(0x12,&B_Id);
  2878.         if(B_Id.row!=480)
  2879.             VideoType='E';
  2880.         else
  2881.         {
  2882.             ScreenXs=640;
  2883.             ScreenYs=480;
  2884.             Num_Color=M.Num_Color=16;
  2885.             strcpy(Suffix,".vmp");
  2886.         }
  2887.     }
  2888.     if(VideoType=='S')
  2889.     {
  2890.         row=SetVideoMode(0x13,&B_Id);
  2891.         if(B_Id.row!=200)
  2892.         {
  2893.             SetVideoMode(0,&B_Id);
  2894.             printf("Could not boot color board.\n");
  2895.             exit(0);
  2896.         }
  2897.         ScreenXs=320;
  2898.         ScreenYs=200;
  2899.         Num_Color=M.Num_Color=256;
  2900.         strcpy(Suffix,".smp");
  2901.         FontSize=3;
  2902.     }
  2903.     if(VideoType=='E')
  2904.     {
  2905.         row=SetVideoMode(0x10,&B_Id);
  2906.         if(B_Id.row!=350)
  2907.         {
  2908.             SetVideoMode(0,&B_Id);
  2909.             printf("Could not boot color board.\n");
  2910.             exit(0);
  2911.         }
  2912.         ScreenXs=640;
  2913.         ScreenYs=350;
  2914.         Num_Color=M.Num_Color=16;
  2915.         strcpy(Suffix,".emp");
  2916.     }
  2917.     if(B_Id.row<0)
  2918.     {
  2919.         SetVideoMode(0,&B_Id);
  2920.         printf("Could not boot board -- row = %d\n\n",row);
  2921.         exit(0);
  2922.     }
  2923. #endif
  2924.     MaxXs=ScreenXs=B_Id.col;
  2925.     MaxYs=ScreenYs=B_Id.row;
  2926.     PixScale=480.0;
  2927.     PixScale/=(float)ScreenYs;
  2928.     strcpy(SubType,Suffix);
  2929.     SubType[3]='g';
  2930. }
  2931.  
  2932.  
  2933.  
  2934. /********************************************************************
  2935. **
  2936. **    WARNING!!!!  YOU MUST CALL decode_font() or set_files() before using
  2937. **
  2938. **     options:
  2939. **
  2940. **       -1 -- remove menu but get no answer
  2941. **        0 -- return answer and set menu colors to greys
  2942. **        1 -- return answer but leave colors alone
  2943. **
  2944. ********************************************************************* */
  2945.  
  2946. int M_do_menu(menu,num,xc,yc,start,back,words,boxs,font)
  2947.  
  2948. char *menu[];
  2949. int num,xc,yc,start,back,words,boxs;
  2950. int font[128][25];
  2951.  
  2952. {
  2953.     int i,j,k;
  2954.     char ans,ans2;
  2955.     int len=0,l,size=FontSize,val,valo;
  2956.     int black=0,dgrey=back,lgrey=words,white=boxs;
  2957.     int wide;
  2958.     long lxs,lys,buffersize=(long)B_LINES*(long)MAX_X;
  2959.  
  2960.     for(k=0;k<num;k++)
  2961.         if((l=strlen(menu[k]))>len)len=l;
  2962.     if(len==0)return(-1);
  2963.     do
  2964.     {
  2965.         wide=(len+1)*15/size+1;
  2966.         if((ScreenXs-1-wide)<xc)xc=ScreenXs-1-wide;
  2967.         lxs=(len+1)*15/size+1;
  2968.         lys=30/size*num+1;
  2969.         if(lxs*lys>buffersize)
  2970.             size+=1;
  2971.         if(size>4)
  2972.         {
  2973.             SetVideoMode(0);            
  2974.             printf("Could not fit menu into buffer for 'save_box()'\n");
  2975.             exit(0);
  2976.         }
  2977.     }while(lxs*lys>buffersize);
  2978.     if((xc+(len+1)*15/size+1)<ScreenXs)
  2979.     {
  2980.         save_box(0,dgrey,Mbuff,
  2981.             xc,yc,(len+1)*15/size+1,30/size*num+1);
  2982.         for(k=0;k<num;k++)
  2983.         {    
  2984.             box(0,xc,yc+k*(30/size),dgrey,(len+1)*15/size,30/size);
  2985.             plot_font_h(lgrey,
  2986.                     xc+15/size,yc+k*30/size+5/size,menu[k],size,font);
  2987.         }
  2988.         box(0,xc,yc,lgrey,(len+1)*15/size,30/size*num);
  2989.  
  2990.         val=valo=start;
  2991.         box(0,xc,yc+val*(30/size),white,(len+1)*15/size,30/size);
  2992.         do
  2993.         {
  2994.             if((ans=getch())==0)
  2995.             {
  2996.                 ans2=getch();
  2997.                 if(ans2==50)
  2998.                 {
  2999.                     unsave_box(0,dgrey,Mbuff,
  3000.                         xc,yc,(len+1)*15/size+1,30/size*num+1);
  3001.                     getch();
  3002.                     paint_box(0,dgrey,MT_Buff,
  3003.                         xc,yc,(len+1)*15/size+1,30/size*num+1);
  3004.                     for(k=0;k<num;k++)
  3005.                     {    
  3006.                         plot_font_h(lgrey,
  3007.                     xc+15/size,
  3008.                                     yc+k*30/size+5/size,menu[k],size,font);
  3009.                     }
  3010.                 }
  3011.                 if(ans2=='H')
  3012.                 {
  3013.                     if(val>0)val-=1;
  3014.                     else val=num-1;
  3015.                 }
  3016.                 if(ans2=='P')
  3017.                 {
  3018.                     if(val<num-1)val+=1;
  3019.                     else val=0;
  3020.                 }
  3021.             }
  3022.  
  3023.             for(i=0;i<num;i++)
  3024.                 if(ans==menu[i][0])
  3025.                 {
  3026.                     val=i;
  3027.                     ans=13;
  3028.                 }
  3029.  
  3030.             box(0,xc,yc+valo*(30/size),dgrey,(len+1)*15/size,30/size);
  3031.             valo=val;
  3032.             box(0,xc,yc,lgrey,(len+1)*15/size,30/size*num);
  3033.             box(0,xc,yc+val*(30/size),white,(len+1)*15/size,30/size);
  3034.             if(ans==27)
  3035.             {
  3036.                 val=num-1;
  3037.                 ans=13;
  3038.             }
  3039.         }while(ans!=13);
  3040.     }
  3041.     box(0,xc,yc,dgrey,(len+1)*15/size,30/size*num);
  3042.     box(0,xc,yc+val*(30/size),lgrey,(len+1)*15/size,30/size);
  3043.     unsave_box(0,dgrey,Mbuff,
  3044.             xc,yc,(len+1)*15/size+1,30/size*num+1);
  3045.     return(val);
  3046. }
  3047.  
  3048.  
  3049.  
  3050. /********************************************************************
  3051. **
  3052. **    WARNING!!!!  YOU MUST CALL decode_font() or set_files() before using
  3053. **
  3054. **     options:
  3055. **
  3056. **       -1 -- remove menu but get no answer
  3057. **        0 -- return answer and set menu colors to greys
  3058. **        1 -- return answer but leave colors alone
  3059. **
  3060. ********************************************************************* */
  3061.  
  3062. int T_do_menu(menu,num,xc,yc,start,back,words,boxs,font,off_on)
  3063.  
  3064. char menu[][2][50];
  3065. int num,xc,yc,start,back,words,boxs;
  3066. int font[128][25],*off_on;
  3067.  
  3068. {
  3069.     int i,j,k;
  3070.     char ans,ans2;
  3071.     int len=0,l,size=FontSize,val,valo;
  3072.     int black=0,dgrey=back,lgrey=words,white=boxs;
  3073.     int wide;
  3074.     long lxs,lys,buffersize=(long)B_LINES*(long)MAX_X;
  3075.  
  3076.     for(k=0;k<num;k++)
  3077.         if((l=strlen(menu[k][0]))>len)len=l;
  3078.     if(len==0)return(-1);
  3079.     do
  3080.     {
  3081.         wide=(len+1)*15/size+1;
  3082.         if((ScreenXs-1-wide)<xc)xc=ScreenXs-1-wide;
  3083.         lxs=(len+1)*15/size+1;
  3084.         lys=30/size*num+1;
  3085.         if(lxs*lys>buffersize)
  3086.             size+=1;
  3087.         if(size>4)
  3088.         {
  3089.             SetVideoMode(0);            
  3090.             printf("Could not fit menu into buffer for 'save_box()'\n");
  3091.             exit(0);
  3092.         }
  3093.     }while(lxs*lys>buffersize);
  3094.     if((ScreenXs-1-wide)<xc)xc=ScreenXs-1-wide;
  3095.     if((xc+(len+1)*15/size+1)<ScreenXs)
  3096.     {
  3097.         paint_box(0,dgrey,Mbuff,xc,yc,(len+1)*15/size+1,30/size*num+1);
  3098.         for(k=0;k<num-3;k++)
  3099.         {    
  3100.             box(0,xc,yc+k*(30/size),dgrey,(len+1)*15/size,30/size);
  3101.             plot_font_h(lgrey,xc+15/size,yc+k*30/size+5/size,menu[k][off_on[k]],
  3102.                 size,font);
  3103.         }
  3104.         for(k=num-3;k<num;k++)
  3105.         {    
  3106.             box(0,xc,yc+k*(30/size),dgrey,(len+1)*15/size,30/size);
  3107.             plot_font_h(lgrey,xc+15/size,yc+k*30/size+5/size,menu[k][0],
  3108.                 size,font);
  3109.         }
  3110.         box(0,xc,yc,lgrey,(len+1)*15/size,30/size*num);
  3111.  
  3112.         val=valo=start;
  3113.         box(0,xc,yc+val*(30/size),white,(len+1)*15/size,30/size);
  3114.         do
  3115.         {
  3116.             ans=getch();
  3117.             if(ans==13)
  3118.             {
  3119.                 if(val<num-3)
  3120.                 {
  3121.                     if(off_on[val]==0)
  3122.                         off_on[val]=1;
  3123.                     else
  3124.                         off_on[val]=0;
  3125.                 }
  3126.                 if(val==num-3)
  3127.                     for(k=0;k<num-3;k++)
  3128.                         off_on[k]=1;
  3129.                 if(val==num-2)
  3130.                     for(k=0;k<num-3;k++)
  3131.                         off_on[k]=0;
  3132.                 paint_box(0,dgrey,Mbuff,xc,yc,
  3133.                     (len+1)*15/size+1,30/size*num+1);
  3134.                 for(k=0;k<num-3;k++)
  3135.                 {    
  3136.                     box(0,xc,yc+k*(30/size),dgrey,(len+1)*15/size,30/size);
  3137.                     plot_font_h(lgrey,xc+15/size,yc+k*30/size+5/size,
  3138.                             menu[k][off_on[k]],size,font);
  3139.                 }
  3140.                 for(k=num-3;k<num;k++)
  3141.                 {    
  3142.                     box(0,xc,yc+k*(30/size),dgrey,(len+1)*15/size,30/size);
  3143.                     plot_font_h(lgrey,xc+15/size,yc+k*30/size+5/size,
  3144.                             menu[k][0],size,font);
  3145.                 }
  3146.                 box(0,xc,yc,lgrey,(len+1)*15/size,30/size*num);
  3147.             }
  3148.             if(ans==13&&val==num-1)
  3149.                 ans=27;
  3150.             if(ans==0)
  3151.             {
  3152.                 ans2=getch();
  3153.                 if(ans2=='H')
  3154.                 {
  3155.                     if(val>0)val-=1;
  3156.                     else val=num-1;
  3157.                 }
  3158.                 if(ans2=='P')
  3159.                 {
  3160.                     if(val<num-1)val+=1;
  3161.                     else val=0;
  3162.                 }
  3163.             }
  3164.             for(i=0;i<num;i++)
  3165.                 if(ans==menu[i][0][0])
  3166.                 {
  3167.                     val=i;
  3168.                     ans=27;
  3169.                 }
  3170.             box(0,xc,yc+valo*(30/size),dgrey,(len+1)*15/size,30/size);
  3171.             valo=val;
  3172.             box(0,xc,yc,lgrey,(len+1)*15/size,30/size*num);
  3173.             box(0,xc,yc+val*(30/size),white,(len+1)*15/size,30/size);
  3174.         }while(ans!=27);
  3175.     }
  3176.     box(0,xc,yc,dgrey,(len+1)*15/size,30/size*num);
  3177.     box(0,xc,yc+val*(30/size),lgrey,(len+1)*15/size,30/size);
  3178.  
  3179.     return(val);
  3180. }
  3181.  
  3182.  
  3183.  
  3184. /**************************************************************************
  3185. **
  3186. **
  3187. **
  3188. ************************************************************************* */
  3189.  
  3190. int read_control(filename)
  3191.  
  3192. char *filename;
  3193.  
  3194. {
  3195.     int i,j,k,n=1,m,p=0,u,v;
  3196.     FILE *fp;
  3197.     char string1[100],string2[100],string2a[100],string3[100],string2b[100];
  3198.     char nam[100],type;
  3199.     int numread,val,numcolors;
  3200.  
  3201.     fp=open_to_read_binary(filename);
  3202.     if(!fp)
  3203.         return(-1);
  3204.     fscanf(fp,"%s",string1);
  3205.     if(strlen(string1)==1)
  3206.     {
  3207.         type=string1[0];
  3208.         if(type=='l'||type=='a'||type=='m'||
  3209.             type=='s'||type=='p'||type=='S')
  3210.         {
  3211.             M.Type=type;
  3212.             numread=fscanf(fp,"%f%f%f%f",&M.Pixsize,&M.Clat,&M.Clon,&M.Space);
  3213.             if(numread!=4)
  3214.             {
  3215.                 return(-6);
  3216.             }
  3217.         }
  3218.     }
  3219.  
  3220.     do
  3221.     {
  3222.         numread=fscanf(fp,"%s",string1);
  3223.     }while(numread>0&&strcmpi(string1,"begin_color")!=0);
  3224.     if(numread<1)
  3225.         return(-2);        /* could not find 'begin_color' */
  3226.  
  3227.     i=0;
  3228.     do
  3229.     {
  3230.         fscanf(fp,"%s",M.Color_Name[i]);
  3231.         if(strcmpi(M.Color_Name[i],"end_color")!=0)
  3232.         {
  3233.             numread=fscanf(fp,"%s%d%d%d",
  3234.                 string1,&M.Color_Val[i][0],&M.Color_Val[i][1],&M.Color_Val[i][2]);
  3235.             if(strcmpi(M.Color_Name[i],"white")==0)
  3236.             {
  3237.                 M.White=i;
  3238.             }
  3239.             if(strcmpi(M.Color_Name[i],"black")==0)
  3240.             {
  3241.                 M.Black=i;
  3242.             }
  3243.         }
  3244.         if(numread==4&&M.Out==1&&Fpout)
  3245.             fprintf(Fpout,"%20s = %4d%4d%4d\n",M.Color_Name[i],
  3246.                 M.Color_Val[i][0],M.Color_Val[i][1],M.Color_Val[i][2]);
  3247.         i+=1;
  3248.     }while(numread==4&&strcmpi(M.Color_Name[i-1],"end_color")!=0&&i<MAX_COLORS);
  3249.     numcolors=i;
  3250.     do
  3251.     {
  3252.         numread=fscanf(fp,"%s",string1);
  3253.         if(strcmpi(string1,"menu_background")==0)
  3254.         {
  3255.             fscanf(fp,"%s%s",string2,string3);
  3256.             if(M.Out==1&&Fpout)
  3257.                 fprintf(Fpout,"%16s = %s\n",string1,string3);
  3258.             val=get_color(string3);
  3259.             if(val>=0&&val<MAX_COLORS)
  3260.                 M.Mback=val;
  3261.             else
  3262.             {
  3263.                 printf("'%s' %s '%s'\n",string1,string2,string3);
  3264.                 return(-5);    /* bad color name */
  3265.             }
  3266.         }
  3267.         if(strcmpi(string1,"text")==0)
  3268.         {
  3269.             fscanf(fp,"%s%s",string2,string3);
  3270.             if(M.Out==1&&Fpout)
  3271.                 fprintf(Fpout,"%16s = %s\n",string1,string3);
  3272.             val=get_color(string3);
  3273.             if(val>=0&&val<MAX_COLORS)
  3274.                 M.Text=val;
  3275.             else
  3276.             {
  3277.                 printf("'%s' %s '%s'\n",string1,string2,string3);
  3278.                 return(-5);    /* bad color name */
  3279.             }
  3280.         }
  3281.         if(strcmpi(string1,"highlight")==0)
  3282.         {
  3283.             fscanf(fp,"%s%s",string2,string3);
  3284.             if(M.Out==1&&Fpout)
  3285.                 fprintf(Fpout,"%16s = %s\n",string1,string3);
  3286.             val=get_color(string3);
  3287.             if(val>=0&&val<MAX_COLORS)
  3288.                 M.High=val;
  3289.             else
  3290.             {
  3291.                 printf("'%s %s '%s'\n",string1,string2,string3);
  3292.                 return(-5);    /* bad color name */
  3293.             }
  3294.         }
  3295.         if(strcmpi(string1,"background")==0)
  3296.         {
  3297.             fscanf(fp,"%s%s",string2,string3);
  3298.             if(M.Out==1&&Fpout)
  3299.                 fprintf(Fpout,"%16s = %s\n",string1,string3);
  3300.             val=get_color(string3);
  3301.             if(val>=0&&val<MAX_COLORS)
  3302.                 M.Back=val;
  3303.             else
  3304.             {
  3305.                 printf("'%s' %s '%s'\n",string1,string2,string3);
  3306.                 return(-5);    /* bad color name */
  3307.             }
  3308.         }
  3309.         if(strcmpi(string1,"graticule")==0)
  3310.         {
  3311.             fscanf(fp,"%s%s",string2,string3);
  3312.             if(M.Out==1&&Fpout)
  3313.                 fprintf(Fpout,"%16s = %s\n",string1,string3);
  3314.             val=get_color(string3);
  3315.             if(val>=0&&val<MAX_COLORS)
  3316.                 M.Grat=val;
  3317.             else
  3318.             {
  3319.                 printf("'%s' %s '%s'\n",string1,string2,string3);
  3320.                 return(-5);    /* bad color name */
  3321.             }
  3322.         }
  3323.         if(strcmpi(string1,"lat/lon")==0)
  3324.         {
  3325.             fscanf(fp,"%s%s",string2,string3);
  3326.             if(M.Out==1&&Fpout)
  3327.                 fprintf(Fpout,"%16s = %s\n",string1,string3);
  3328.             val=get_color(string3);
  3329.             if(val>=0&&val<MAX_COLORS)
  3330.                 M.LatLon=val;
  3331.             else
  3332.             {
  3333.                 printf("'%s' %s '%s'\n",string1,string2,string3);
  3334.                 return(-5);    /* bad color name */
  3335.             }
  3336.         }
  3337.         if(strcmpi(string1,"black")==0)
  3338.         {
  3339.             fscanf(fp,"%s%s",string2,string3);
  3340.             if(M.Out==1&&Fpout)
  3341.                 fprintf(Fpout,"%16s = %s\n",string1,string3);
  3342.             val=get_color(string3);
  3343.             if(val>=0&&val<MAX_COLORS)
  3344.                 M.Black=val;
  3345.             else
  3346.             {
  3347.                 printf("'%s' %s '%s'\n",string1,string2,string3);
  3348.                 return(-5);    /* bad color name */
  3349.             }
  3350.         }
  3351.     }while(numread>0&&strcmpi(string1,"begin_vector")!=0);
  3352.     if(numread<1)
  3353.         return(-3);        /* could not find 'begin_vector' */
  3354.     i=0;
  3355.     do
  3356.     {
  3357.         numread=fscanf(fp,"%s",M.Group_Name[i]);
  3358.         if(numread==1&&strcmpi(M.Group_Name[i],"begin_names")==0)
  3359.         {
  3360.             do
  3361.             {
  3362.                 numread==fscanf(fp,"%s",String);
  3363.                 if(strcmpi(String,"end_names")!=0)
  3364.                 {
  3365.                     strcpy(PlaceFile[p].name,String);
  3366.                     fscanf(fp,"%s%s",string1,string2);
  3367.                     {
  3368.                         if(strcmpi(string2,"ON")==0)
  3369.                             PlaceFile[p].on=1;
  3370.                         else if(strcmpi(string2,"OFF")==0)
  3371.                             PlaceFile[p].on=0;
  3372.                         else
  3373.                         {
  3374.                             printf("'%s' is not marked ON or OFF\n\n",
  3375.                                 PlaceFile[p].name);
  3376.                             exit(0);
  3377.                         }
  3378.                     }
  3379.                     fscanf(fp,"%s%f%f%s",
  3380.                         PlaceFile[p].filename,
  3381.                         &PlaceFile[p].max_pix,&PlaceFile[p].min_pix,
  3382.                         string3);
  3383.                     val=get_color(string3);
  3384.                     if(val>=0&&val<MAX_COLORS)
  3385.                         PlaceFile[p].color=val;
  3386.                     else
  3387.                     {
  3388.                         printf("'%s' %s '%s'\n",string1,string2,string3);
  3389.                         return(-5);    /* bad color name */
  3390.                     }
  3391.                     for(u=0;u<SYM_SIZE;u++)
  3392.                     {
  3393.                         fscanf(fp,"%s",string1);
  3394.                         if(strlen(string1)!=SYM_SIZE)
  3395.                         {
  3396.                             printf("Bad symbol -- must be %d x %d\n",
  3397.                                 Sym_Size,Sym_Size);
  3398.                             printf("%s %s %f %f %d\n",
  3399.                                 PlaceFile[p].filename,
  3400.                                 PlaceFile[p].max_pix,
  3401.                                 PlaceFile[p].min_pix,
  3402.                                 PlaceFile[p].color);
  3403.                             return(-12);
  3404.                         }
  3405.                         for(v=0;v<SYM_SIZE;v++)
  3406.                             PlaceFile[p].Symbol[u][v]=string1[v];
  3407.                     }
  3408.                     p+=1;
  3409.                     if(p>=NUM_SYM)
  3410.                     {
  3411.                         printf("Too many symbols\n");
  3412.                         exit(0);
  3413.                     }
  3414.                     M.NumSymbol=p;
  3415.                 }
  3416.             }while(strcmpi(String,"end_names")!=0);
  3417.             numread=3;
  3418.         }
  3419.         else if(numread==1&&strcmpi(M.Group_Name[i],"fillin_ihs")==0)
  3420.         {
  3421.             M.Fill_In=3;
  3422.             M.Fill_After=i-1;
  3423.             fscanf(fp,"%s%d",String,&M.Num_Fill);
  3424.             for(m=0;m<M.Num_Fill;m++)
  3425.             {
  3426.                 fscanf(fp,"%s",M.Fill_In_Name[m]);
  3427.                 add_disk_path(M.Fill_In_Name[m]);
  3428.                 numread=fscanf(fp,"%f%f",&M.FI_max[m],&M.FI_min[m]);
  3429.                 if(numread<2)
  3430.                 {
  3431.                     printf("Bad max or min in fill group assignment '%s'\n",
  3432.                         M.Fill_In_Name[m]);
  3433.                     exit(0);
  3434.                 }
  3435.             }
  3436.             if(numread!=2)
  3437.             {
  3438.                 printf("Could not find max min pixel sizes for fill file\n");
  3439.                 exit(0);
  3440.             }
  3441.             do
  3442.             {
  3443.                 fscanf(fp,"%s",string1);
  3444.                 if(strcmpi(string1,"end")!=0)
  3445.                 {
  3446.                     numread=fscanf(fp,"%s%s%s%s",string2,string2a,string2b,string3);
  3447.                     if(numread<4)
  3448.                     {
  3449.                         printf("Error (1) reading fill color %d\n",k+1);
  3450.                         exit(0);
  3451.                     }
  3452.                     if(sscanf(string1,"%d",&k)<1)
  3453.                     {
  3454.                         printf("Error (2) reading fill color %d\n",k+1);
  3455.                         exit(0);
  3456.                     }
  3457.                     sscanf(string2,"%f",M.Fill_Color_IHS[k]);
  3458.                     sscanf(string2a,"%f",M.Fill_Color_IHS[k]+1);
  3459.                     sscanf(string2b,"%f",M.Fill_Color_IHS[k]+2);
  3460.                     if(k>M.Max_Fill)
  3461.                         M.Max_Fill=k;
  3462.                     M.Fill_Order[n++]=k;
  3463.                     strcpy(M.Fill_Name[k],string3);
  3464.                 }
  3465.             }while(strcmpi(string1,"end")!=0);
  3466.             numread=3;
  3467.         }
  3468.         else
  3469.         {
  3470.             if(numread==1&&strcmpi(M.Group_Name[i],"end_vector")!=0)
  3471.             {
  3472.                 numread=fscanf(fp,"%s%d%s",
  3473.                     string1,&M.Ns[i],string2);
  3474.                 strcpy(T_Menu_L[i][0],M.Group_Name[i]);
  3475.                 strcat(T_Menu_L[i][0]," OFF");
  3476.                 strcpy(T_Menu_L[i][1],M.Group_Name[i]);
  3477.                 strcat(T_Menu_L[i][1]," ON");
  3478.                 if(M.Out==1&&Fpout)
  3479.                     fprintf(Fpout,"\n%s = %d %s \n",M.Group_Name[i],M.Ns[i],string2);
  3480.                 if(strcmpi(string2,"ON")==0)
  3481.                     M.Mm[i]=1;
  3482.                 else
  3483.                     M.Mm[i]=0;
  3484.                 if(M.Ns[i]==0||M.Ns[i]>NUM_SIZE)
  3485.                 {
  3486.                     printf("Bad M.Ns = %d\n",M.Ns[i]);
  3487.                     return(-4);    /* too many vectors in a group */
  3488.                 }
  3489.             }
  3490.             for(k=0;k<M.Ns[i];k++)
  3491.             {
  3492.                 fscanf(fp,"%s%f%f%s",M.MapFile[i][k].filename,
  3493.                     &M.MapFile[i][k].max_pix,&M.MapFile[i][k].min_pix,
  3494.                     string1);
  3495.                 sprintf(nam,"%s.bin",M.MapFile[i][k].filename);
  3496.                 add_disk_path(nam);
  3497.                 val=get_color(string1);
  3498.                 if(val>=0&&val<MAX_COLORS)
  3499.                     M.MapFile[i][k].color=val;
  3500.                 else
  3501.                 {
  3502.                     printf("'%s' %f %f '%s'\n",
  3503.                         M.MapFile[i][k].filename,
  3504.                         M.MapFile[i][k].max_pix,M.MapFile[i][k].min_pix,
  3505.                         string1);
  3506.                     return(-5);    /* bad color name */
  3507.                 }
  3508.                 if(M.Out==1&&Fpout)
  3509.                     fprintf(Fpout,"%20s %8.4f %8.4f %10s = %2d\n",
  3510.                         M.MapFile[i][k].filename,
  3511.                         M.MapFile[i][k].max_pix,M.MapFile[i][k].min_pix,
  3512.                         string1,M.MapFile[i][k].color);
  3513.             }
  3514.             i+=1;
  3515.         }
  3516.     }while(numread==3&&strcmpi(M.Group_Name[i-1],"end_vector")!=0&&i<NUM_TYPE);
  3517.     i-=1;
  3518.     M.Num_Type=i;
  3519.     strcpy(T_Menu_L[i+0][0],"all ON");
  3520.     strcpy(T_Menu_L[i+0][1],"all ON");
  3521.     strcpy(T_Menu_L[i+1][0],"all OFF");
  3522.     strcpy(T_Menu_L[i+1][1],"all OFF");
  3523.     strcpy(T_Menu_L[i+2][0],"exit");
  3524.     strcpy(T_Menu_L[i+2][1],"exit");
  3525.     fclose(fp);
  3526.     return(1);
  3527. }
  3528.  
  3529.  
  3530.  
  3531. /**************************************************************************
  3532. **
  3533. **
  3534. **
  3535. ************************************************************************* */
  3536.  
  3537. int get_color(string)
  3538.  
  3539. char *string;
  3540.  
  3541. {
  3542.     int i,j,k;
  3543.     int val=-1;
  3544.  
  3545.     for(i=0;i<MAX_COLORS;i++)
  3546.         if(strcmpi(M.Color_Name[i],string)==0)
  3547.             return(i);
  3548.     return(-1);
  3549. }
  3550.  
  3551. /********************************************************************
  3552. **
  3553. **
  3554. **
  3555. ********************************************************************* */
  3556.  
  3557. char Zoom(xc,yc,xs,ys,pixsize,clat,clon,space)
  3558.  
  3559. int xc,yc,xs,ys;
  3560. float *pixsize,*clat,*clon,*space;
  3561.  
  3562. {
  3563.     int i,j,k,k1,k2;
  3564.     char ans,ans2;
  3565.     int ix[4],iy[4],speed=16;
  3566.     float m_ps=*pixsize,m_clon=*clon,m_clat=*clat,m_space=*space;
  3567.     float cur_ps=*pixsize/2.0,cur_clon=*clon,cur_clat=*clat,cur_space=*space;
  3568.     float cur_scale=1.189207115;
  3569.     int cur_ix=xc+xs/2,cur_iy=yc+ys/2;
  3570.     double dlat,dlon;
  3571.     int txs,screen_xs,lsize=FontSize;
  3572.  
  3573.     if(VideoType=='S')
  3574.         lsize=3;
  3575.     if(cur_ps<MIN_PIX)cur_ps=MIN_PIX;
  3576.  
  3577.     xy_ll((double)cur_ix,(double)cur_iy,&dlat,&dlon);
  3578.     cur_clat=dlat;cur_clon=dlon;
  3579.     get_corners(xc,yc,xs,ys,m_ps,m_clat,m_clon,cur_ps,cur_clat,cur_clon,ix,iy);
  3580.  
  3581.     tplotln_val(0,ix[0],iy[0]+1,ix[1],iy[1],MT_Buff[0],M.White);
  3582.     tplotln_val(0,ix[1]+1,iy[1],ix[2],iy[2],MT_Buff[1],M.White);
  3583.     tplotln_val(0,ix[2],iy[2]-1,ix[3],iy[3],MT_Buff[2],M.White);
  3584.     tplotln_val(0,ix[3]-1,iy[3],ix[0],iy[0],MT_Buff[3],M.White);
  3585.  
  3586.     do
  3587.     {
  3588.         ans=getch();
  3589.         if(ans==0)
  3590.         {
  3591.             ans2=getch();
  3592.             if(ans2==59)        /* F1 */
  3593.                 ans='H';
  3594.             else
  3595.             {
  3596.                 if(ans2=='G'||ans2=='H'||ans2=='I')cur_iy-=speed;
  3597.                 if(ans2=='I'||ans2=='M'||ans2=='Q')cur_ix+=speed;
  3598.                 if(ans2=='O'||ans2=='P'||ans2=='Q')cur_iy+=speed;
  3599.                 if(ans2=='O'||ans2=='K'||ans2=='G')cur_ix-=speed;
  3600.                 if(cur_iy<yc)cur_iy=yc;
  3601.                 if(cur_ix<xc)cur_ix=xc;
  3602.                 if(cur_iy>yc+ys-1)cur_iy=yc+ys-1;
  3603.                 if(cur_ix>xc+xs-1)cur_ix=xc+xs-1;
  3604.             }
  3605.         }
  3606.         if(ans=='h'||ans=='H')
  3607.         {
  3608.             txs=ScreenXs;
  3609.             ScreenXs=MaxXs;
  3610.             save_box(0,M.Back,Mbuff,
  3611.                 0,0,MaxXs,32/lsize);
  3612.             paint_box(0,M.Back,MT_Buff,0,0,ScreenXs,32/lsize);
  3613.             sprintf(String,
  3614. "(s)maller (l)arger 'Enter'=plot  'Esc'=exit without plotting");
  3615.             plot_font_h(M.White,1,1,String,FontSize,Font);
  3616.             ans=getch();
  3617.             unsave_box(0,M.Back,Mbuff,
  3618.                 0,0,MaxXs,32/lsize);
  3619.             ScreenXs=txs;
  3620.         }        
  3621.  
  3622.         if(ans=='l')cur_ps*=cur_scale;
  3623.         if(ans=='s')cur_ps/=cur_scale;
  3624.         if(cur_ps<MIN_PIX)cur_ps=MIN_PIX;
  3625.         if(ans=='-')
  3626.         {
  3627.             if(speed>1)
  3628.                 speed/=2;
  3629.             else
  3630.                 cur_scale=sqrt((double)cur_scale);
  3631.         }
  3632.         if(ans=='+'&&speed<256)speed*=2;
  3633.  
  3634.         unplotln(0,ix[0],iy[0]+1,ix[1],iy[1],MT_Buff[0]);
  3635.         unplotln(0,ix[1]+1,iy[1],ix[2],iy[2],MT_Buff[1]);
  3636.         unplotln(0,ix[2],iy[2]-1,ix[3],iy[3],MT_Buff[2]);
  3637.         unplotln(0,ix[3]-1,iy[3],ix[0],iy[0],MT_Buff[3]);
  3638.  
  3639.         xy_ll((double)cur_ix,(double)cur_iy,&dlat,&dlon);
  3640.         cur_clat=dlat;cur_clon=dlon;
  3641.         get_corners(xc,yc,xs,ys,
  3642.             m_ps,m_clat,m_clon,cur_ps,cur_clat,cur_clon,ix,iy);
  3643.  
  3644.         tplotln_val(0,ix[0],iy[0]+1,ix[1],iy[1],MT_Buff[0],M.White);
  3645.         tplotln_val(0,ix[1]+1,iy[1],ix[2],iy[2],MT_Buff[1],M.White);
  3646.         tplotln_val(0,ix[2],iy[2]-1,ix[3],iy[3],MT_Buff[2],M.White);
  3647.         tplotln_val(0,ix[3]-1,iy[3],ix[0],iy[0],MT_Buff[3],M.White);
  3648.  
  3649.     }while(ans!=83&&ans!=27&&ans!=13);
  3650.  
  3651.     unplotln(0,ix[0],iy[0]+1,ix[1],iy[1],MT_Buff[0]);
  3652.     unplotln(0,ix[1]+1,iy[1],ix[2],iy[2],MT_Buff[1]);
  3653.     unplotln(0,ix[2],iy[2]-1,ix[3],iy[3],MT_Buff[2]);
  3654.     unplotln(0,ix[3]-1,iy[3],ix[0],iy[0],MT_Buff[3]);
  3655.  
  3656.     M.Pixsize=*pixsize=cur_ps;
  3657.     M.Clat=*clat=cur_clat;
  3658.     M.Clon=*clon=cur_clon;
  3659.  
  3660.     if(cur_ps<20)
  3661.     {    
  3662.         *space=30.0;
  3663.         return(ans);
  3664.     }
  3665.     if(cur_ps<10)
  3666.     {    
  3667.         *space=15.0;
  3668.         return(ans);
  3669.     }
  3670.     if(cur_ps<2)
  3671.     {    
  3672.         *space=5.0;
  3673.         return(ans);
  3674.     }
  3675.     *space=1.0;
  3676.     return(ans);
  3677.  
  3678. }
  3679.  
  3680.  
  3681.  
  3682.  
  3683. /********************************************************************
  3684. **
  3685. **
  3686. **
  3687. ********************************************************************* */
  3688.  
  3689. void get_corners(xc,yc,xs,ys,m_pixsize,m_clat,m_clon,
  3690.         cur_pixsize,cur_clat,cur_clon,x,y)
  3691.  
  3692. int xc,yc,xs,ys;
  3693. float m_pixsize,m_clat,m_clon,cur_pixsize,cur_clat,cur_clon;
  3694. int x[4],y[4];
  3695.  
  3696. {
  3697.     int i,j,k;
  3698.     double lat[4],lon[4],dx,dy;
  3699.  
  3700.     miv.indat[0]=cur_pixsize;
  3701.     miv.indat[1]=cur_clat;
  3702.     miv.indat[2]=cur_clon;
  3703.     miv.indat[3]=cur_clon;
  3704.     miv.indat[4]=cur_clat+10;
  3705.     miv.indat[5]=cur_clat-10;
  3706.     map_pos.xc=xc;    
  3707.     map_pos.yc=yc;
  3708.     map_pos.xs=xs;
  3709.     map_pos.ys=ys;
  3710.     auto_set_cc(miv.type,miv.indat);
  3711.     
  3712.     xy_ll((double)xc,(double)yc,lat+0,lon+0);
  3713.     xy_ll((double)xc,(double)yc+ys-1,lat+1,lon+1);
  3714.     xy_ll((double)xc+xs-1,(double)yc+ys-1,lat+2,lon+2);
  3715.     xy_ll((double)xc+xs-1,(double)yc,lat+3,lon+3);
  3716.  
  3717.     miv.indat[0]=m_pixsize;
  3718.     miv.indat[1]=m_clat;
  3719.     miv.indat[2]=m_clon;
  3720.     miv.indat[3]=m_clon;
  3721.     miv.indat[4]=m_clat+10;
  3722.     miv.indat[5]=m_clat-10;
  3723.     map_pos.xc=xc;    
  3724.     map_pos.yc=yc;
  3725.     map_pos.xs=xs;
  3726.     map_pos.ys=ys;
  3727.     auto_set_cc(miv.type,miv.indat);
  3728.  
  3729.     for(i=0;i<4;i++)
  3730.     {
  3731.         ll_xy(&dx,&dy,lat[i],lon[i]);
  3732.         x[i]=dx;
  3733.         y[i]=dy;
  3734.     }
  3735. }
  3736.  
  3737.  
  3738.  
  3739.  
  3740. /********************************************************************
  3741. **
  3742. **
  3743. **
  3744. ********************************************************************* */
  3745.  
  3746. int plot_map(xc,yc,xs,ys,pixsize,clat,clon,space,iop)
  3747.  
  3748. int xc,yc,xs,ys,iop;
  3749. float pixsize,clat,clon,space;
  3750.  
  3751. {
  3752.     int i,j,k,l,m;
  3753.     double sp=space;
  3754.     int num,val,filled=0;
  3755.     int ix=ScreenXs/2,iy=ScreenYs/2,speed=16;
  3756.  
  3757.     if(M.Out==1&&Fpout)
  3758.         fprintf(Fpout,"\npixsize = %6.3f  clat = %12.5f  clon = %12.5f\n",
  3759.             pixsize,clat,clon);
  3760.  
  3761.     miv.type=M.Type;
  3762.     miv.indat[0]=pixsize;
  3763.     miv.indat[1]=clat;
  3764.     miv.indat[2]=clon;
  3765.     miv.indat[3]=clon;
  3766.     miv.indat[4]=clat+10;
  3767.     miv.indat[5]=clat-10;
  3768.     map_pos.xc=xc;    
  3769.     map_pos.yc=yc;
  3770.     map_pos.xs=xs;
  3771.     map_pos.ys=ys;
  3772.     auto_set_cc(miv.type,miv.indat);
  3773.     screen_mm();
  3774.  
  3775.     if(iop==0)
  3776.     {
  3777.         paint_box(0,M.Back,MT_Buff,0,0,ScreenXs,ScreenYs);
  3778.         if(pixsize>5.0)
  3779.         {
  3780.             sp=10;
  3781.             if(M.Fill_In==0)
  3782.                 plot_graticule(Font,M.Grat,M.LatLon,sp,M.GratOn);
  3783.         }
  3784.         if(pixsize>2.5&&pixsize<=5.0)
  3785.         {
  3786.             sp=5;
  3787.             if(M.Fill_In==0)
  3788.                 plot_graticule(Font,M.Grat,M.LatLon,sp,M.GratOn);
  3789.         }
  3790.         if(pixsize<=2.5&&pixsize>0.5)
  3791.         {
  3792.             sp=1;
  3793.             if(M.Fill_In==0)
  3794.                 plot_graticule(Font,M.Grat,M.LatLon,sp,M.GratOn);
  3795.         }
  3796.         if(pixsize<=0.5&&pixsize>0.25)
  3797.         {
  3798.             sp=0.5;                                    
  3799.             if(M.Fill_In==0)
  3800.                 plot_graticule_frac(Font,M.Grat,M.LatLon,sp,M.GratOn);
  3801.         }
  3802.         if(pixsize<=0.25&&pixsize>0.05)
  3803.         {
  3804.             sp=0.1;
  3805.             if(M.Fill_In==0)
  3806.                 plot_graticule_frac(Font,M.Grat,M.LatLon,sp,M.GratOn);
  3807.         }
  3808.         if(pixsize<=0.05&&pixsize>0.025)
  3809.         {
  3810.             sp=0.05;
  3811.             if(M.Fill_In==0)
  3812.                 plot_graticule_frac(Font,M.Grat,M.LatLon,sp,M.GratOn);
  3813.         }
  3814.         if(pixsize<=0.025&&pixsize>0.005)
  3815.         {
  3816.             sp=0.01;
  3817.             if(M.Fill_In==0)
  3818.                 plot_graticule_frac(Font,M.Grat,M.LatLon,sp,M.GratOn);
  3819.         }
  3820.         if(pixsize<=0.005&&pixsize>0.0025)
  3821.         {
  3822.             sp=0.005;
  3823.             if(M.Fill_In==0)
  3824.                 plot_graticule_frac(Font,M.Grat,M.LatLon,sp,M.GratOn);
  3825.         }
  3826.         if(pixsize<=0.0025)
  3827.         {
  3828.             sp=0.001;
  3829.             if(M.Fill_In==0)
  3830.                 plot_graticule_frac(Font,M.Grat,M.LatLon,sp,M.GratOn);
  3831.         }
  3832.         if(iop==0)
  3833.         {
  3834.             for(i=0;i<M.Num_Type;i++)
  3835.             {
  3836.                 for(j=0;j<M.Ns[i];j++)
  3837.                 {
  3838.                     if(M.MapFile[i][j].max_pix*PixScale>pixsize
  3839.                         &&M.MapFile[i][j].min_pix*PixScale<=pixsize
  3840.                         &&M.Mm[i]==1)
  3841.                     {
  3842.                         if(kbhit()>0)
  3843.                         {
  3844.                             val=getch();
  3845.                             if(val==27)
  3846.                                 return(-1);
  3847.                         }
  3848.                         num=convert_bin(M.MapFile[i][j].color,
  3849.                                 M.MapFile[i][j].filename);
  3850.                         if(num<-1)
  3851.                             return(-2);
  3852.                         if(M.Out==1&&Fpout)
  3853.                             fprintf(Fpout,"%s -- color = %d plotted %d segments\n",
  3854.                                 M.MapFile[i][j].filename,M.MapFile[i][j].color,num);
  3855.                     }
  3856.                 }
  3857.                 if(M.Fill_In>0&&i==M.Fill_After&&M.Mm[i]==1)
  3858.                 {
  3859.                     filled=0;
  3860.                     for(m=0;m<M.Num_Fill;m++)
  3861.                     {
  3862.                         if(M.FI_max[m]*PixScale>pixsize&&
  3863.                                         M.FI_min[m]*PixScale<=pixsize)
  3864.                         {
  3865.                             num=fill_in_area(M.Fill_In_Name[m]);
  3866.                             if(num<-1)
  3867.                                 return(-2);
  3868.                             filled=1;
  3869.                         }
  3870.                     }
  3871.                     if(filled==1)
  3872.                     {
  3873.                         save_box(0,M.Black,Mbuff,0,0,MaxXs,36/FontSize);
  3874.                         sprintf(String,
  3875. "You are in 'cursor mode', hit any key to continue or F1 for help.");
  3876.                 plot_font_h(M.White,10/FontSize,5/FontSize,String,FontSize,Font);
  3877.                         if(getch()==0)
  3878.                             getch();
  3879.                         unsave_box(0,M.Black,Mbuff,0,0,MaxXs,36/FontSize);
  3880.                         pix_loc(ix,iy,&ix,&iy,&speed);
  3881.                     }
  3882.                 }
  3883.             }
  3884.             for(i=0;i<M.NumSymbol;i++)
  3885.             {
  3886.                 if(PlaceFile[i].on==1&&
  3887.                     pixsize>=PlaceFile[i].min_pix&&pixsize<PlaceFile[i].max_pix)
  3888.                 {
  3889.                     symbol_plot(i,0);
  3890.                 }
  3891.             }
  3892.         }
  3893.     }
  3894. }
  3895.  
  3896. /**************************************************************************
  3897. **
  3898. **        iop = 0 -- plot only symbols
  3899. **                1 -- names
  3900. **                2 -- id
  3901. **
  3902. ************************************************************************* */
  3903.  
  3904. int symbol_plot(i,iop)
  3905.  
  3906. int i,iop;
  3907.  
  3908. {
  3909.     int j,k,u,v;
  3910.     int val;
  3911.     FILE *fploc;
  3912.     char string[STR_LEN],id[STR_LEN],name[STR_LEN];
  3913.     double lat,lon,x,y;
  3914.     int ix,iy,ss=SYM_SIZE/2;
  3915.     char *result;
  3916.  
  3917.     fploc=open_to_read_binary(PlaceFile[i].filename);
  3918.     if(fploc)
  3919.     {
  3920.         while((result=fgets(string,80,fploc))!=NULL)
  3921.         {
  3922.             string[strlen(string)-1]='\0';
  3923.             if(sscanf(string,"%s%lf%lf%s",name,&lat,&lon,id)!=4)
  3924.             {
  3925.                 fclose(fploc);
  3926.                 return(-1);
  3927.             }
  3928.             ll_xy(&x,&y,lat,lon);
  3929.             ix=x,iy=y;
  3930.             if(ix>=0&&ix<ScreenXs&&iy>=0&&iy<ScreenYs)
  3931.             {
  3932.                 if(iop==0)
  3933.                 {
  3934.                     for(u=0;u<SYM_SIZE;u++)
  3935.                     {
  3936.                         for(v=0;v<SYM_SIZE;v++)
  3937.                         {
  3938.                             if(PlaceFile[i].Symbol[u][v]=='*')
  3939.                                 plotpt(0,ix-ss+v,iy-ss+u,PlaceFile[i].color);
  3940.                         }
  3941.                     }
  3942.                 }
  3943.                 if(iop==1)
  3944.                     plot_font_h(M.White,ix-ss-strlen(name)*7,
  3945.                         iy-ss+2,name,2,Font);
  3946.                 if(iop==2)
  3947.                     plot_font_h(M.White,ix+ss+2,iy-ss+2,id,2,Font);
  3948.             }
  3949.         }
  3950.     }
  3951.     fclose(fploc);
  3952. }
  3953.  
  3954. /**************************************************************************
  3955. **
  3956. **
  3957. **
  3958. ************************************************************************* */
  3959.  
  3960. int fill_in_area(filename)
  3961.  
  3962. char *filename;
  3963.  
  3964. {
  3965.     int i,j,k,p;
  3966.     int idc[2],val1,val2;
  3967.     double lat,lon;
  3968.     FILE *fpblb;
  3969.     double x,y;
  3970.     int ix,iy,num;
  3971.     char pth[STR_LEN],nam[10],typ[10],string[STR_LEN];
  3972.  
  3973.     fpblb=open_to_read_binary(filename);
  3974.     split(filename,pth,nam,typ);
  3975.     if(!fpblb)
  3976.         return(0);
  3977.     while(fread((char *)idc,sizeof(int),2,fpblb)==2)
  3978.     {
  3979.         fread((char *)&lat,sizeof(double),1,fpblb);
  3980.         fread((char *)&lon,sizeof(double),1,fpblb);
  3981.         ll_xy(&x,&y,lat,lon);
  3982.         ix=x;iy=y;
  3983.         if(ix>=0&&ix<ScreenXs&&iy>=0&&iy<ScreenYs)
  3984.         {
  3985.             if(getpt(0,ix,iy)==M.Back)
  3986.             {
  3987.                 if(VideoType=='X'||VideoType=='S'||VideoType=='Y')
  3988.                 {
  3989.                     num=auto_fill_in(0,idc[1]+16,Mbuff,todo,ix,iy);
  3990.                     if(num<-1)
  3991.                         return(-2);
  3992.                 }
  3993.                 else
  3994.                 {
  3995.                     val1=M.Fill_Color[idc[1]][0];
  3996.                     val2=M.Fill_Color[idc[1]][1];
  3997.                     if(val1==M.Back)
  3998.                         val1=M.Black;
  3999.                     if(val2==M.Back)
  4000.                         val2=M.Black;
  4001.                     num=auto_fill_in_2(0,val1,val2,Mbuff,todo,ix,iy);
  4002.                     if(num<-1)
  4003.                         return(-2);
  4004.                 }
  4005.             }
  4006.             else if(getpt(0,ix,iy)!=idc[1]+16)
  4007.             {
  4008.                 if(VideoType=='X'||VideoType=='S'||VideoType=='Y')
  4009.                     plotpt(0,ix,iy,idc[1]+16);
  4010.                 else
  4011.                 {
  4012.                     if((ix+iy)%2==0)
  4013.                     {
  4014.                         val1=M.Fill_Color[idc[1]][0];
  4015.                         plotpt(0,ix,iy,val1);
  4016.                     }
  4017.                     else
  4018.                     {
  4019.                         val2=M.Fill_Color[idc[1]][1];
  4020.                         plotpt(0,ix,iy,val2);
  4021.                     }
  4022.                 }
  4023.             }
  4024.         }
  4025.     }
  4026.     fclose(fpblb);
  4027.     return(1);
  4028. }
  4029.  
  4030.  
  4031.  
  4032.  
  4033. /********************************************************************
  4034. **
  4035. **
  4036. **
  4037. ********************************************************************* */
  4038.  
  4039. void save_rectangle(xc,yc,xs,ys,fp)
  4040.  
  4041. int xc,yc,xs,ys;
  4042. FILE *fp;
  4043.  
  4044. {
  4045.     int i,j,k;
  4046.  
  4047.     rewind(fp);
  4048.  
  4049.     fwrite((char *)&ys,sizeof(int),1,fp);
  4050.     fwrite((char *)&xs,sizeof(int),1,fp);
  4051.     for(i=0;i<ys;i++)
  4052.     {
  4053.         getrow(0,xc,xc+xs-1,i+yc,MT_Buff);
  4054.         fwrite((char *)MT_Buff,sizeof(char),xs,fp);
  4055.     }
  4056. }
  4057.  
  4058. /********************************************************************
  4059. **
  4060. **
  4061. **
  4062. ********************************************************************* */
  4063.  
  4064. void recall_rectangle(xc,yc,xs,ys,fp)
  4065.  
  4066. int xc,yc,xs,ys;
  4067. FILE *fp;
  4068.  
  4069. {
  4070.     int i,j,k;
  4071.  
  4072.     rewind(fp);
  4073.     fread((char *)&ys,sizeof(int),1,fp);
  4074.     fread((char *)&xs,sizeof(int),1,fp);
  4075.     if(xc+xs>ScreenXs)xc=ScreenXs-xs;
  4076.     if(yc+ys>ScreenYs)yc=ScreenYs-ys;
  4077.     if(xc<0||yc<0)return;
  4078.  
  4079.     for(i=0;i<ys;i++)
  4080.     {
  4081.         fread((char *)MT_Buff,sizeof(char),xs,fp);
  4082.         plotrow(1,xc,xc+xs-1,i+yc,MT_Buff);
  4083.     }
  4084. }
  4085.  
  4086.  
  4087. /********************************************************************
  4088. **
  4089. **
  4090. **
  4091. ********************************************************************* */
  4092.  
  4093. void screen_mm()
  4094.  
  4095. {
  4096.     double lat,lon,x,y;
  4097.     double sx=ScreenXs,sy=ScreenYs;
  4098.     float flat,flon,lon_r,lon_l;
  4099.  
  4100.     MaxLat=-360.0;
  4101.     MaxLon=-360.0;
  4102.     MinLat= 360.0;
  4103.     MinLon= 360.0;
  4104.  
  4105.     x=0.0;y=0.0;
  4106.     xy_ll(x,y,&lat,&lon);
  4107.     flat=lat;flon=lon;
  4108.     if(flat>MaxLat)MaxLat=flat;
  4109.     if(flon>MaxLon)MaxLon=flon;
  4110.     if(flat<MinLat)MinLat=flat;
  4111.     if(flon<MinLon)MinLon=flon;
  4112.     x=0.0;y=ScreenYs/2.0;
  4113.     xy_ll(x,y,&lat,&lon);lon_l=lon;
  4114.     flat=lat;flon=lon;
  4115.     if(flat>MaxLat)MaxLat=flat;
  4116.     if(flon>MaxLon)MaxLon=flon;
  4117.     if(flat<MinLat)MinLat=flat;
  4118.     if(flon<MinLon)MinLon=flon;
  4119.     x=0.0;y=ScreenYs;
  4120.     xy_ll(x,y,&lat,&lon);
  4121.     flat=lat;flon=lon;
  4122.     if(flat>MaxLat)MaxLat=flat;
  4123.     if(flon>MaxLon)MaxLon=flon;
  4124.     if(flat<MinLat)MinLat=flat;
  4125.     if(flon<MinLon)MinLon=flon;
  4126.     x=320.0;y=ScreenYs;
  4127.     xy_ll(x,y,&lat,&lon);
  4128.     flat=lat;flon=lon;
  4129.     if(flat>MaxLat)MaxLat=flat;
  4130.     if(flon>MaxLon)MaxLon=flon;
  4131.     if(flat<MinLat)MinLat=flat;
  4132.     if(flon<MinLon)MinLon=flon;
  4133.     x=ScreenXs;y=ScreenYs;
  4134.     xy_ll(x,y,&lat,&lon);
  4135.     flat=lat;flon=lon;
  4136.     if(flat>MaxLat)MaxLat=flat;
  4137.     if(flon>MaxLon)MaxLon=flon;
  4138.     if(flat<MinLat)MinLat=flat;
  4139.     if(flon<MinLon)MinLon=flon;
  4140.     x=ScreenXs;y=ScreenXs/2;
  4141.     xy_ll(x,y,&lat,&lon);lon_r=lon;
  4142.     flat=lat;flon=lon;
  4143.     if(flat>MaxLat)MaxLat=flat;
  4144.     if(flon>MaxLon)MaxLon=flon;
  4145.     if(flat<MinLat)MinLat=flat;
  4146.     if(flon<MinLon)MinLon=flon;
  4147.     x=ScreenXs;y=  0.0;
  4148.     xy_ll(x,y,&lat,&lon);
  4149.     flat=lat;flon=lon;
  4150.     if(flat>MaxLat)MaxLat=flat;
  4151.     if(flon>MaxLon)MaxLon=flon;
  4152.     if(flat<MinLat)MinLat=flat;
  4153.     if(flon<MinLon)MinLon=flon;
  4154.     x=ScreenXs/2;y=  0.0;
  4155.     xy_ll(x,y,&lat,&lon);
  4156.     flat=lat;flon=lon;
  4157.     if(flat>MaxLat)MaxLat=flat;
  4158.     if(flon>MaxLon)MaxLon=flon;
  4159.     if(flat<MinLat)MinLat=flat;
  4160.     if(flon<MinLon)MinLon=flon;
  4161.     if(lon_l>180.0)
  4162.         lon_l-=360.0;
  4163.     if(lon_r>180.0)
  4164.         lon_r-=360.0;
  4165.  
  4166.     lat=-89.999;    /* south pole check */
  4167.     ll_xy(&x,&y,lat,lon);
  4168.     if(x>=0.0&&x<sx&&y>0.0&&y<sy)
  4169.     {        
  4170.         MinLat=-90.001;
  4171.         MinLon=-360.0;
  4172.         MaxLon= 360.0;
  4173.     }
  4174.     lat=89.999;    /* north pole check */
  4175.     ll_xy(&x,&y,lat,lon);
  4176.     if(x>=0.0&&x<sx&&y>0.0&&y<sy)
  4177.     {        
  4178.         MaxLat= 90.001;
  4179.         MinLon=-360.0;
  4180.         MaxLon= 360.0;
  4181.     }
  4182.     if(lon_l>lon_r)    /* date line on screen */
  4183.     {
  4184.         MinLon=-360.0;
  4185.         MaxLon= 360.0;
  4186.     }
  4187. }
  4188.  
  4189.  
  4190. /***********************************************************************
  4191. **
  4192. **
  4193. **
  4194. ***********************************************************************/
  4195. int auto_fill_in(hue,val,buffer,todo,cx,cy)
  4196.  
  4197. int todo[2][MAXDO];
  4198. int hue,val;
  4199. unsigned char *buffer;
  4200. int cx,cy;
  4201.  
  4202. {
  4203.     int i,j,k,m,n,l;
  4204.     int x=cx,y=cy,on=0;
  4205.     int lastup[2],lastdn[2];
  4206.     int fillval,cval,kbval;
  4207.  
  4208.     fillval=getpt(hue,x,y);
  4209.     if(fillval==val)return(-1);
  4210.  
  4211.     do
  4212.     {
  4213.         if(kbhit()>0)
  4214.         {
  4215.             kbval=getch();
  4216.             if(kbval==27)
  4217.                 return(-2);
  4218.         }
  4219.         lastup[0]=lastup[1]=lastdn[0]=lastdn[1]=-1;
  4220.         for(i=x;i<ScreenXs;i++)
  4221.         {
  4222.             if(i>=ScreenXs||getpt(hue,i,y)!=fillval)
  4223.                 break;
  4224.             plotpt(hue,i,y,val);
  4225.             on=check_point(hue,i,y,fillval,on,todo);
  4226.             if(y>0&&getpt(hue,i,y-1)==fillval)
  4227.             {
  4228.                 lastup[0]=i;
  4229.                 lastup[1]=y-1;
  4230.             }
  4231.             if(i<ScreenXs-1&&getpt(hue,i,y+1)==fillval)
  4232.             {
  4233.                 lastdn[0]=i;
  4234.                 lastdn[1]=y+1;
  4235.             }
  4236.         }
  4237.         if(lastup[0]>=0&&on<MAXDO)
  4238.         {
  4239.             todo[0][on]=lastup[0];
  4240.             todo[1][on]=lastup[1];
  4241.             on+=1;
  4242.         }
  4243.         if(lastdn[0]>=0&&on<MAXDO)
  4244.         {
  4245.             todo[0][on]=lastdn[0];
  4246.             todo[1][on]=lastdn[1];
  4247.             on+=1;
  4248.         }
  4249.         lastup[0]=lastup[1]=lastdn[0]=lastdn[1]=-1;
  4250.         if(x>0)
  4251.         {
  4252.             for(i=x-1;i>=0;i--)
  4253.             {
  4254.                 if(i<0||getpt(hue,i,y)!=fillval)
  4255.                     break;
  4256.                 plotpt(hue,i,y,val);
  4257.                 on=check_point(hue,i,y,fillval,on,todo);
  4258.                 if(y>0&&getpt(hue,i,y-1)==fillval)
  4259.                 {
  4260.                     lastup[0]=i;
  4261.                     lastup[1]=y-1;
  4262.                 }
  4263.                 if(i<ScreenXs-1&&getpt(hue,i,y+1)==fillval)
  4264.                 {
  4265.                     lastdn[0]=i;
  4266.                     lastdn[1]=y+1;
  4267.                 }
  4268.             }
  4269.         }
  4270.         if(lastup[0]>=0&&on<MAXDO)
  4271.         {
  4272.             todo[0][on]=lastup[0];
  4273.             todo[1][on]=lastup[1];
  4274.             on+=1;
  4275.         }
  4276.         if(lastdn[0]>=0&&on<MAXDO)
  4277.         {
  4278.             todo[0][on]=lastdn[0];
  4279.             todo[1][on]=lastdn[1];
  4280.             on+=1;
  4281.         }
  4282.         on=purge(hue,fillval,todo,on);
  4283.         if(on>0)
  4284.         {
  4285.             x=todo[0][on-1];
  4286.             y=todo[1][on-1];
  4287.         }
  4288.     }while(on>0);
  4289. }
  4290.  
  4291. /***********************************************************************
  4292. **
  4293. **
  4294. **
  4295. ***********************************************************************/
  4296.  
  4297. int auto_fill_in_2(hue,val1,val2,buffer,todo,cx,cy)
  4298.  
  4299. int todo[2][MAXDO];
  4300. int hue,val1,val2;
  4301. unsigned char *buffer;
  4302. int cx,cy;
  4303.  
  4304. {
  4305.     int i,j,k,m,n,l;
  4306.     int x=cx,y=cy,on=0;
  4307.     int lastup[2],lastdn[2];
  4308.     int fillval,cval,kbval;
  4309.  
  4310.     fillval=getpt(hue,x,y);
  4311.     if(fillval==val1||fillval==val2)
  4312.         return(-1);
  4313.     do
  4314.     {
  4315.         if(kbhit()>0)
  4316.         {
  4317.             kbval=getch();
  4318.             if(kbval==27)
  4319.                 return(-2);
  4320.         }
  4321.         lastup[0]=lastup[1]=lastdn[0]=lastdn[1]=-1;
  4322.         for(i=x;i<ScreenXs;i++)
  4323.         {
  4324.             if(i>=ScreenXs||getpt(hue,i,y)!=fillval)
  4325.                 break;
  4326.             if(((i+y)%2)==0)
  4327.                 plotpt(hue,i,y,val1);
  4328.             else
  4329.                 plotpt(hue,i,y,val2);
  4330.             on=check_point(hue,i,y,fillval,on,todo);
  4331.             if(y>0&&getpt(hue,i,y-1)==fillval)
  4332.             {
  4333.                 lastup[0]=i;
  4334.                 lastup[1]=y-1;
  4335.             }
  4336.             if(i<ScreenXs-1&&getpt(hue,i,y+1)==fillval)
  4337.             {
  4338.                 lastdn[0]=i;
  4339.                 lastdn[1]=y+1;
  4340.             }
  4341.         }
  4342.         if(lastup[0]>=0&&on<MAXDO)
  4343.         {
  4344.             todo[0][on]=lastup[0];
  4345.             todo[1][on]=lastup[1];
  4346.             on+=1;
  4347.         }
  4348.         if(lastdn[0]>=0&&on<MAXDO)
  4349.         {
  4350.             todo[0][on]=lastdn[0];
  4351.             todo[1][on]=lastdn[1];
  4352.             on+=1;
  4353.         }
  4354.         lastup[0]=lastup[1]=lastdn[0]=lastdn[1]=-1;
  4355.         if(x>0)
  4356.         {
  4357.             for(i=x-1;i>=0;i--)
  4358.             {
  4359.                 if(i<0||getpt(hue,i,y)!=fillval)
  4360.                     break;
  4361.                 if(((i+y)%2)==0)
  4362.                     plotpt(hue,i,y,val1);
  4363.                 else
  4364.                     plotpt(hue,i,y,val2);
  4365.                 on=check_point(hue,i,y,fillval,on,todo);
  4366.                 if(y>0&&getpt(hue,i,y-1)==fillval)
  4367.                 {
  4368.                     lastup[0]=i;
  4369.                     lastup[1]=y-1;
  4370.                 }
  4371.                 if(i<ScreenXs-1&&getpt(hue,i,y+1)==fillval)
  4372.                 {
  4373.                     lastdn[0]=i;
  4374.                     lastdn[1]=y+1;
  4375.                 }
  4376.             }
  4377.         }
  4378.         if(lastup[0]>=0&&on<MAXDO)
  4379.         {
  4380.             todo[0][on]=lastup[0];
  4381.             todo[1][on]=lastup[1];
  4382.             on+=1;
  4383.         }
  4384.         if(lastdn[0]>=0&&on<MAXDO)
  4385.         {
  4386.             todo[0][on]=lastdn[0];
  4387.             todo[1][on]=lastdn[1];
  4388.             on+=1;
  4389.         }
  4390.         on=purge(hue,fillval,todo,on);
  4391.         if(on>0)
  4392.         {
  4393.             x=todo[0][on-1];
  4394.             y=todo[1][on-1];
  4395.         }
  4396.     }while(on>0);
  4397. }
  4398.  
  4399.  
  4400. /***********************************************************************
  4401. **
  4402. **
  4403. **
  4404. ***********************************************************************/
  4405.  
  4406. int convert_bin(val,region)
  4407.  
  4408. char *region;
  4409. int val;
  4410.  
  4411. {
  4412.     int i,j,k,m,n=0,p;
  4413.     double x,y,xo,yo;
  4414.     int ix,iy,ixo=-1,iyo=-1;
  4415.     double dx,dy,dist;
  4416.     int secnum,numpt,numsec,ival;
  4417.     FILE *fp,*fphdr,*fpatr;
  4418.     float latlon[2],mll[4],mnln,mxln,mnlt,mxlt;
  4419.     char string[40],pth[40],name[40],type[40];
  4420.     int doit,numplot=0;
  4421.     int first_seg=-1,last_seg=-1,atr=1;
  4422.     long offset,attrib;
  4423.  
  4424.     strcpy(string,region);
  4425.     strcat(string,".bin");
  4426.     fp=open_to_read_binary(string);
  4427.     if(!fp)
  4428.     {
  4429.         if(M.Out==1&&Fpout)
  4430.             fprintf(Fpout,"could not open '%s'\n",string);
  4431.         return(-1);
  4432.     }
  4433. /*    setbuf(fp,Inbuff);*/
  4434.     strcpy(string,region);
  4435.     strcat(string,".hdr");
  4436.     fphdr=open_to_read_binary(string);
  4437.     if(!fphdr)
  4438.     {
  4439.         if(M.Out==1&&Fpout)
  4440.             fprintf(Fpout,"could not open '%s'\n",string);
  4441.         fclose(fp);
  4442.         return(-1);
  4443.     }
  4444. /*    setbuf(fphdr,Inbuff2);*/
  4445.     fread((char *)&numsec,sizeof(int),1,fphdr);
  4446.     fread((char *)&numsec,sizeof(int),1,fp);
  4447.     for(j=0;j<numsec;j++)
  4448.     {
  4449.         if(kbhit()>0)
  4450.         {
  4451.             ival=getch();
  4452.             if(ival==27)
  4453.             {
  4454.                 fclose(fp);
  4455.                 fclose(fphdr);
  4456.                 return(-2);
  4457.             }
  4458.         }
  4459.         fread((char *)&offset,sizeof(long),1,fphdr);
  4460.         fread((char *)mll,sizeof(float),4,fphdr);
  4461.         doit=1;
  4462.         mnln=mll[0];mxln=mll[1];mnlt=mll[2];mxlt=mll[3];
  4463.         if(mnln>MaxLon||mnlt>MaxLat||mxln<MinLon||mxlt<MinLat)
  4464.             doit=0;
  4465.         if(doit==1)
  4466.         {
  4467.             numplot+=1;
  4468.             fseek(fp,offset,SEEK_SET);
  4469.             fread((char *)&numpt,sizeof(int),1,fp);
  4470.             fread((char *)mll,sizeof(float),4,fp);
  4471.             m=0;
  4472.             for(i=0;i<numpt;i++)
  4473.             {
  4474.                 fread((char *)latlon,sizeof(float),2,fp);
  4475.                 if(doit==1)
  4476.                 {
  4477.                     ll_xy(&x,&y,(double)latlon[0],(double)latlon[1]);
  4478.                     if(i==0)
  4479.                     {
  4480.                         xo=x;yo=y;
  4481.                         ixo=ix;iyo=iy;
  4482.                     }
  4483.                     ix=x;iy=y;
  4484.                     dist=(xo-x)*(xo-x)+(yo-y)*(yo-y);
  4485.                     if(dist<1000000.0)
  4486.                     {
  4487.                         plotpt(0,ix,iy,val);
  4488.                         if(i>0)
  4489.                             plotln(0,ix,iy,ixo,iyo,val);
  4490.                         ixo=ix;iyo=iy;
  4491.                         xo=ix;yo=iy;
  4492.                     }
  4493.                 }
  4494.             }
  4495.         }
  4496.     }
  4497.     fclose(fp);
  4498.     fclose(fphdr);
  4499.     return(numplot);
  4500. }
  4501.  
  4502. /**************************************************************************
  4503. **
  4504. **
  4505. **
  4506. ************************************************************************* */
  4507.  
  4508. int split(string,path,name,type)
  4509.  
  4510. char *string,*path,*name,*type;
  4511.  
  4512. {
  4513.     int i,j,k;
  4514.     int dot=-1,last_slash=-1,len=strlen(string),num=0;
  4515.  
  4516.     if(strlen(string)>STR_LEN)
  4517.     {
  4518.         SetVideoMode(0,&B_Id);
  4519.         printf("In split() -- string 1 too long!\n\n");
  4520.         exit(0);
  4521.     }
  4522.  
  4523.     for(i=0;i<len;i++)
  4524.     {
  4525.         if(string[i]=='.')
  4526.             dot=i;
  4527.         if(string[i]=='\\')
  4528.             last_slash=i;
  4529.     }
  4530.     last_slash+=1;
  4531.     if(dot==-1)
  4532.         dot=len-1;
  4533.     if(last_slash>0)
  4534.     {
  4535.         for(i=0;i<last_slash;i++)
  4536.             path[i]=string[i];
  4537.     }
  4538.     path[last_slash]='\0';
  4539.     for(i=last_slash;i<dot;i++)
  4540.         name[i-last_slash]=string[i];
  4541.     name[dot-last_slash]='\0';
  4542.     dot+=1;
  4543.     for(i=dot;i<len;i++)
  4544.         type[i-dot]=string[i];
  4545.     type[len-dot]='\0';
  4546.     if(strlen(name)>0)
  4547.         num+=1;
  4548.     if(strlen(type)>0)
  4549.         num+=1;
  4550.  
  4551.     return(num);
  4552. }
  4553.  
  4554.  
  4555. /********************************************************************
  4556. **
  4557. **
  4558. **
  4559. ********************************************************************* */
  4560.  
  4561. void fill_voids()
  4562.  
  4563. {
  4564.     int i,j,k;
  4565.     int val;
  4566.     int xc=240,yc=240,xs=32,ys=32;
  4567.     int x1=xc-1,x2=xc+xs,speed=8;
  4568.     int num,min;
  4569.  
  4570.     if(x1<0)x1=0;
  4571.     if(x2>ScreenXs-1)x2=ScreenXs-1;
  4572.  
  4573.     printf("Give minimum number of neighbors to fill with.\n");
  4574.     scanf("%d",&min);
  4575.  
  4576.     do
  4577.     {
  4578.         limit_area(&xc,&yc,&xs,&ys,&speed,ScreenXs,1,MT_Buff);
  4579.  
  4580.         for(i=yc;i<yc+2;i++)    /* load first 2 rows */
  4581.             getrow(0,xc,xc+xs-1,i,MT_Buff[i%3]);
  4582.         for(i=yc+1;i<yc+ys-1;i++)
  4583.         {
  4584.             getrow(0,xc,xc+xs-1,i+1,MT_Buff[(i+1)%3]);
  4585.             MT_Buff[3][0]=MT_Buff[i%3][0];
  4586.             MT_Buff[3][xs-1]=MT_Buff[i%3][xs-1];
  4587.             for(j=1;j<xs-1;j++)
  4588.             {
  4589.                 if(MT_Buff[i%3][j]==0)
  4590.                 {
  4591.                     num=0;
  4592.                     if(MT_Buff[(i-1)%3][j-1]!=0)num+=1;
  4593.                     if(MT_Buff[(i-1)%3][j]!=0)num+=1;
  4594.                     if(MT_Buff[(i-1)%3][j+1]!=0)num+=1;
  4595.                     if(MT_Buff[(i)%3][j-1]!=0)num+=1;
  4596.                     if(MT_Buff[(i)%3][j+1]!=0)num+=1;
  4597.                     if(MT_Buff[(i+1)%3][j-1]!=0)num+=1;
  4598.                     if(MT_Buff[(i+1)%3][j]!=0)num+=1;
  4599.                     if(MT_Buff[(i+1)%3][j+1]!=0)num+=1;
  4600.  
  4601.                     if(num>=min)
  4602.                     {
  4603.                         if(MT_Buff[(i-1)%3][j+1]!=0)
  4604.                             MT_Buff[3][j]=MT_Buff[(i-1)%3][j+1];
  4605.                         else if(MT_Buff[(i-1)%3][j]!=0)
  4606.                             MT_Buff[3][j]=MT_Buff[(i-1)%3][j];
  4607.                         else if(MT_Buff[i%3][j+1]!=0)
  4608.                             MT_Buff[3][j]=MT_Buff[i%3][j+1];
  4609.                         else if(MT_Buff[(i-1)%3][j-1]!=0)
  4610.                             MT_Buff[3][j]=MT_Buff[(i-1)%3][j-1];
  4611.                         else if(MT_Buff[(i+1)%3][j+1]!=0)
  4612.                             MT_Buff[3][j]=MT_Buff[(i-1)%3][j-1];
  4613.                         else if(MT_Buff[(i)%3][j-1]!=0)
  4614.                             MT_Buff[3][j]=MT_Buff[(i-1)%3][j-1];
  4615.                         else if(MT_Buff[(i+1)%3][j]!=0)
  4616.                             MT_Buff[3][j]=MT_Buff[(i-1)%3][j-1];
  4617.                         else if(MT_Buff[(i+1)%3][j-1]!=0)
  4618.                             MT_Buff[3][j]=MT_Buff[(i-1)%3][j-1];
  4619.                     }
  4620.                 }
  4621.                 else
  4622.                     MT_Buff[3][j]=MT_Buff[i%3][j];
  4623.             }
  4624.             plotrow(0,xc,xc+xs-1,i,MT_Buff[3]);
  4625.         }
  4626.         printf("Again?\n");
  4627.     }while(getch()!='n');
  4628. }
  4629.  
  4630.  
  4631. /********************************************************************
  4632. **
  4633. **
  4634. **
  4635. ********************************************************************* */
  4636.  
  4637. void remove_boundaries(val)
  4638.  
  4639. int val;
  4640.  
  4641. {
  4642.     int i,j,k;
  4643.     int xc=0,yc=0,xs=ScreenXs,ys=ScreenYs;
  4644.     int x1=xc-1,x2=xc+xs;
  4645.  
  4646.     if(x1<0)x1=0;
  4647.     if(x2>ScreenXs-1)x2=ScreenXs-1;
  4648.  
  4649.     for(i=yc;i<yc+2;i++)    /* load first 2 rows */
  4650.         getrow(0,xc,xc+xs-1,i,MT_Buff[i%3]);
  4651.     for(i=yc+1;i<yc+ys-1;i++)
  4652.     {
  4653.         getrow(0,xc,xc+xs-1,i+1,MT_Buff[(i+1)%3]);
  4654.         MT_Buff[3][0]=MT_Buff[i%3][0];
  4655.         MT_Buff[3][xs-1]=MT_Buff[i%3][xs-1];
  4656.         for(j=1;j<xs-1;j++)
  4657.         {
  4658.             if(MT_Buff[i%3][j]==val)
  4659.             {
  4660.                 if(MT_Buff[(i-1)%3][j+1]!=val)
  4661.                     MT_Buff[3][j]=MT_Buff[(i-1)%3][j+1];
  4662.                 else if(MT_Buff[(i-1)%3][j]!=val)
  4663.                     MT_Buff[3][j]=MT_Buff[(i-1)%3][j];
  4664.                 else if(MT_Buff[i%3][j+1]!=val)
  4665.                     MT_Buff[3][j]=MT_Buff[i%3][j+1];
  4666.                 else if(MT_Buff[(i-1)%3][j-1]!=val)
  4667.                     MT_Buff[3][j]=MT_Buff[(i-1)%3][j-1];
  4668.             }
  4669.             else
  4670.                 MT_Buff[3][j]=MT_Buff[i%3][j];
  4671.         }
  4672.         plotrow(0,xc,xc+xs-1,i,MT_Buff[3]);
  4673.     }
  4674. }
  4675.  
  4676.  
  4677. /***********************************************************************
  4678. **
  4679. **
  4680. **
  4681. ***********************************************************************/
  4682.  
  4683. int fill_in(hue,val,buffer,todo,cx,cy,speed)
  4684.  
  4685. int todo[2][MAXDO];
  4686. int hue,val;
  4687. unsigned char *buffer;
  4688. int *cx,*cy,*speed;
  4689.  
  4690. {
  4691.     int i,j,k,m,n;
  4692.     int x=*cx,y=*cy,on=0;
  4693.     int lastup[2],lastdn[2];
  4694.     int fillval,cval;
  4695.  
  4696.     pix_loc(x,y,&x,&y,speed);
  4697.     *cx=x;*cy=y;
  4698.  
  4699.     fillval=getpt(hue,x,y);
  4700.     printf("starting at point %d,%d filling all %d pixels\n",x,y,fillval);
  4701.  
  4702.     on=check_point(hue,x,y,fillval,on,todo);
  4703.  
  4704.     do
  4705.     {
  4706.         lastup[0]=lastup[1]=lastdn[0]=lastdn[1]=-1;
  4707.         for(i=x;i<ScreenXs;i++)
  4708.         {
  4709.             if(getpt(hue,i,y)!=fillval)
  4710.                 break;
  4711.             plotpt(hue,i,y,val);
  4712.             on=check_point(hue,i,y,fillval,on,todo);
  4713.             if(getpt(hue,i,y-1)==fillval)
  4714.             {
  4715.                 lastup[0]=i;
  4716.                 lastup[1]=y-1;
  4717.             }
  4718.             if(getpt(hue,i,y+1)==fillval)
  4719.             {
  4720.                 lastdn[0]=i;
  4721.                 lastdn[1]=y+1;
  4722.             }
  4723.         }
  4724.         if(lastup[0]>=0&&on<MAXDO)
  4725.         {
  4726.             todo[0][on]=lastup[0];
  4727.             todo[1][on]=lastup[1];
  4728.             on+=1;
  4729.         }
  4730.         if(lastdn[0]>=0&&on<MAXDO)
  4731.         {
  4732.             todo[0][on]=lastdn[0];
  4733.             todo[1][on]=lastdn[1];
  4734.             on+=1;
  4735.         }
  4736.         lastup[0]=lastup[1]=lastdn[0]=lastdn[1]=-1;
  4737.         for(i=x-1;i>=0;i--)
  4738.         {
  4739.             if(getpt(hue,i,y)!=fillval)
  4740.                 break;
  4741.             plotpt(hue,i,y,val);
  4742.             on=check_point(hue,i,y,fillval,on,todo);
  4743.             if(y>0&&getpt(hue,i,y-1)==fillval)
  4744.             {
  4745.                 lastup[0]=i;
  4746.                 lastup[1]=y-1;
  4747.             }
  4748.             if(getpt(hue,i,y+1)==fillval)
  4749.             {
  4750.                 lastdn[0]=i;
  4751.                 lastdn[1]=y+1;
  4752.             }
  4753.         }
  4754.         if(lastup[0]>=0&&on<MAXDO)
  4755.         {
  4756.             todo[0][on]=lastup[0];
  4757.             todo[1][on]=lastup[1];
  4758.             on+=1;
  4759.         }
  4760.         if(lastdn[0]>=0&&on<MAXDO)
  4761.         {
  4762.             todo[0][on]=lastdn[0];
  4763.             todo[1][on]=lastdn[1];
  4764.             on+=1;
  4765.         }
  4766.         on=purge(hue,fillval,todo,on);
  4767.         do
  4768.         {
  4769.             on-=1;
  4770.             x=todo[0][on];
  4771.             y=todo[1][on];
  4772.         }while(getpt(hue,x,y)!=fillval&&on>0);
  4773.  
  4774.     }while(on>0);
  4775. }
  4776.  
  4777.  
  4778.  
  4779. /********************************************************************
  4780. **
  4781. **
  4782. **
  4783. ********************************************************************* */
  4784.  
  4785. int purge(hue,fillval,todo,on)
  4786.  
  4787. int hue,fillval,todo[2][MAXDO],on;
  4788.  
  4789. {
  4790.     int i,j,k;
  4791.  
  4792.     k=0;
  4793.     for(i=0;i<on;i++)
  4794.     {
  4795.         if(getpt(hue,todo[0][i],todo[1][i])==fillval)
  4796.         {
  4797.             todo[0][k]=todo[0][i];
  4798.             todo[1][k]=todo[1][i];
  4799.             k+=1;
  4800.         }        
  4801.     }
  4802.     return(k);
  4803. }
  4804.  
  4805.  
  4806.  
  4807.  
  4808.  
  4809. /********************************************************************
  4810. **
  4811. **
  4812. **
  4813. ********************************************************************* */
  4814.  
  4815. int check_point(hue,x,y,fillval,on,todo)
  4816.  
  4817. int hue,x,y,fillval,on,todo[2][MAXDO];
  4818.  
  4819. {
  4820.     if(on>=MAXDO)return(on);
  4821.  
  4822.     if(getpt(hue,x,y-1)==fillval&&y>0&&x>0&&x<ScreenXs-1)
  4823.     {
  4824.         if(getpt(hue,x-1,y-1)!=fillval||getpt(hue,x+1,y-1)!=fillval)
  4825.         {
  4826.             todo[0][on]=x;
  4827.             todo[1][on]=y-1;
  4828.             on+=1;
  4829.         }
  4830.     }
  4831.     if(on>=MAXDO)return(on);
  4832.  
  4833.     if(getpt(hue,x,y+1)==fillval&&y<ScreenYs-1&&x>0&&x<ScreenXs-1)
  4834.     {
  4835.         if(getpt(hue,x-1,y+1)!=fillval||getpt(hue,x+1,y+1)!=fillval)
  4836.         {
  4837.             todo[0][on]=x;
  4838.             todo[1][on]=y+1;
  4839.             on+=1;
  4840.         }
  4841.     }
  4842.     return(on);
  4843. }
  4844.  
  4845.  
  4846.  
  4847. /***********************************************************************
  4848. **
  4849. **
  4850. **
  4851. **
  4852. ************************************************************************/
  4853.  
  4854. int search_points(cx,cy,pixsize,outstring)
  4855.  
  4856. int *cx,*cy;
  4857. float pixsize;
  4858. char *outstring;
  4859.  
  4860. {
  4861.     int i,j,k;
  4862.     int ix,iy;
  4863.     double dcx=*cx,dcy=*cy,dx,dy,dist,mindist=1000000000,lat,lon;
  4864.     FILE *fploc;
  4865.     char string[STR_LEN],id[STR_LEN],id1[STR_LEN],*result;
  4866.     int numpoints=0;
  4867.  
  4868.     outstring[0]='\0';
  4869.     for(i=0;i<M.NumSymbol;i++)
  4870.     {
  4871.         if(PlaceFile[i].on==1&&
  4872.             pixsize>=PlaceFile[i].min_pix&&pixsize<PlaceFile[i].max_pix)
  4873.         {
  4874.             fploc=open_to_read_binary(PlaceFile[i].filename);
  4875.             if(fploc!=NULL)
  4876.             {
  4877.                 while((result=fgets(string,80,fploc))!=NULL&&strlen(string)>4)
  4878.                 {
  4879.                     string[strlen(string)-1]='\0';
  4880.                     if(sscanf(string,"%s%lf%lf%s",id1,&lat,&lon,id)!=4)
  4881.                     {
  4882.                         fclose(fploc);
  4883.                         break;    
  4884.                     }
  4885.                     ll_xy(&dx,&dy,lat,lon);
  4886.                     ix=dx,iy=dy;
  4887.                     if(ix>=0&&ix<ScreenXs&&iy>=0&&iy<ScreenYs&&
  4888.                         strlen(string)<STR_LEN)
  4889.                     {
  4890.                         dist=(dx-dcx)*(dx-dcx)+(dy-dcy)*(dy-dcy);
  4891.                         if(dist<mindist)
  4892.                         {
  4893.                             *cx=ix;*cy=iy;
  4894.                             mindist=dist;
  4895.                             strcpy(outstring,string);
  4896.                             numpoints+=1;
  4897.                         }
  4898.                     }
  4899.                 }
  4900.             }
  4901.             fclose(fploc);
  4902.         }
  4903.     }
  4904.     return(numpoints);
  4905. }
  4906.  
  4907.  
  4908.  
  4909.  
  4910. /***********************************************************************
  4911. **
  4912. **
  4913. **
  4914. **
  4915. ************************************************************************/
  4916.  
  4917. int set_back()
  4918.  
  4919. {
  4920.     int i,j,k;
  4921.     float r,g,b;
  4922.     float max=0.0;
  4923.  
  4924.     for(i=0;i<256;i++)
  4925.     {
  4926.         lutc[i].r=M.lut[i].r;
  4927.         lutc[i].g=M.lut[i].g;
  4928.         lutc[i].b=M.lut[i].b;
  4929.     }
  4930.     for(i=15;i<256;i++)
  4931.     {
  4932.         r=M.lut[i].r;
  4933.         g=M.lut[i].g;
  4934.         b=M.lut[i].b;
  4935.         if(r>max)max=r;
  4936.         if(g>max)max=g;
  4937.         if(b>max)max=b;
  4938.     }
  4939.     if(255.0/max<BackBright)
  4940.         BackBright=255.0/max;
  4941.     for(i=16;i<256;i++)
  4942.     {
  4943.         r=M.lut[i].r;
  4944.         g=M.lut[i].g;
  4945.         b=M.lut[i].b;
  4946.         lutc[i].r=r*BackBright;
  4947.         lutc[i].g=g*BackBright;
  4948.         lutc[i].b=b*BackBright;
  4949.     }
  4950.     WritePalette(lutc); 
  4951. }
  4952.  
  4953.  
  4954. /**************************************************************************
  4955. **
  4956. **
  4957. **
  4958. **
  4959. ***************************************************************************/
  4960.  
  4961. int plot_key(xc,yc,size)
  4962.  
  4963. int xc,yc,size;
  4964.  
  4965. {
  4966.     int i,j,k,l;
  4967.     int high=30/size,wide=0;
  4968.     int marg=6/size,val[2];
  4969.     unsigned char buffer[100];
  4970.     int x1=xc,y1=yc,color,twide;
  4971.  
  4972.     M.KeyPlotted=1;
  4973.     for(k=1;k<=M.Max_Fill;k++)
  4974.         if(strlen(M.Fill_Name[k])>wide)
  4975.             wide=strlen(M.Fill_Name[k]);
  4976.     wide=(wide+1)*15/size;
  4977.     twide=((M.Max_Fill-1)/(ScreenYs/high)+1)*wide;
  4978.     if(xc+twide>ScreenXs)
  4979.         x1=ScreenXs-twide;
  4980.     paint_box(0,M.Back,MT_Buff,x1,yc,twide,ScreenYs);
  4981.     for(i=1;i<=M.Max_Fill;i++)
  4982.     {    
  4983.         k=M.Fill_Order[i];
  4984.         if(VideoType=='X'||VideoType=='S'||VideoType=='Y')
  4985.         {
  4986.             val[0]=val[1]=k+16;
  4987.         }
  4988.         else
  4989.         {
  4990.             val[0]=M.Fill_Color[k][0];
  4991.             val[1]=M.Fill_Color[k][1];
  4992.         }
  4993.         for(j=0;j<wide+1;j++)
  4994.             buffer[j]=val[j%2];
  4995.         for(l=0;l<high;l++)
  4996.             plotrow(0,x1,x1+wide-1,l+y1,buffer+(l%2));
  4997.         color=M.Comp_Color[k+16];
  4998.         if(strlen(M.Fill_Name[k])>0)
  4999.             plot_font_h(color,x1+marg,y1+marg,
  5000.                 M.Fill_Name[k],size,Font);
  5001.         y1+=high;
  5002.         if(y1+high>ScreenYs)
  5003.         {
  5004.             y1=yc;
  5005.             x1+=wide;
  5006.         }
  5007.     }
  5008.     ScreenXs-=twide;
  5009. }
  5010.  
  5011.  
  5012. /********************************************************************
  5013. **
  5014. **    type  g -- grey all lut[] files
  5015. **            G -- grey only lut[]
  5016. **            i -- initial header map
  5017. **            r -- reset lut[] to lutc[]
  5018. **
  5019. **    iop == 1 don't print RGB etc.
  5020. **
  5021. **
  5022. ********************************************************************* */
  5023.  
  5024. void set_lut(type,iop)
  5025.  
  5026. char type;
  5027. int iop;
  5028.  
  5029. {
  5030.     int k,hue,brite,j,m,n;
  5031.     int color[3],h;
  5032.     double dbrite,dval;
  5033.     float val,minval,i,s,rgb[3];
  5034.     int c1,c2;
  5035.     long mindist,dist,r,g,b,r0,g0,b0;
  5036.  
  5037. /*
  5038.     if(type=='g')
  5039.     {
  5040.         M.lut[ 0].r=  0;
  5041.         M.lut[ 0].g=  0;
  5042.         M.lut[ 0].b=  0;
  5043.         M.lut[ 1].r= 46;
  5044.         M.lut[ 1].g= 46;
  5045.         M.lut[ 1].b= 46;
  5046.         M.lut[ 2].r=128;
  5047.         M.lut[ 2].g=128;
  5048.         M.lut[ 2].b=128;
  5049.         M.lut[ 3].r=255;
  5050.         M.lut[ 3].g=255;
  5051.         M.lut[ 3].b=255;
  5052.     }
  5053. */
  5054.     if(type=='c')
  5055.     {
  5056.         for(k=0;k<MAX_COLORS;k++)
  5057.         {        
  5058.             M.lut[ k].r=M.Color_Val[k][0];
  5059.             M.lut[ k].g=M.Color_Val[k][1];
  5060.             M.lut[ k].b=M.Color_Val[k][2];
  5061.         }
  5062.         for(k=MAX_COLORS;k<256;k++)
  5063.         {
  5064.             M.lut[ k].r=k;
  5065.             M.lut[ k].g=k;
  5066.             M.lut[ k].b=k;
  5067.         }
  5068.         if(M.Fill_In==1)
  5069.         {
  5070.             for(k=0;k<=M.Max_Fill;k++)
  5071.             {        
  5072.                 M.lut[k+16].r=(M.Color_Val[M.Fill_Color[k][0]][0]+
  5073.                                  M.Color_Val[M.Fill_Color[k][1]][0])/2;
  5074.                 M.lut[k+16].g=(M.Color_Val[M.Fill_Color[k][0]][1]+
  5075.                                  M.Color_Val[M.Fill_Color[k][1]][1])/2;
  5076.                 M.lut[k+16].b=(M.Color_Val[M.Fill_Color[k][0]][2]+
  5077.                                  M.Color_Val[M.Fill_Color[k][1]][2])/2;
  5078.             }
  5079.         }
  5080.         if(M.Fill_In==2)
  5081.         {
  5082.             for(k=1;k<=M.Max_Fill;k++)
  5083.             {        
  5084.                 r0=M.lut[k+16].r=M.Fill_Color_RGB[k][0];
  5085.                 g0=M.lut[k+16].g=M.Fill_Color_RGB[k][1];
  5086.                 b0=M.lut[k+16].b=M.Fill_Color_RGB[k][2];
  5087.                 mindist=16777216;
  5088.                 for(m=0;m<MAX_COLORS;m++)
  5089.                 {
  5090.                     for(n=m;n<MAX_COLORS;n++)
  5091.                     {
  5092.                         r=(long)(M.Color_Val[m][0]+M.Color_Val[n][0])/2;
  5093.                         g=(long)(M.Color_Val[m][1]+M.Color_Val[n][1])/2;
  5094.                         b=(long)(M.Color_Val[m][2]+M.Color_Val[n][2])/2;
  5095.                         dist=(r-r0)*(r-r0)+(g-g0)*(g-g0)+(b-b0)*(b-b0);
  5096.                         if(dist<mindist&&m!=M.Back&&n!=M.Back)
  5097.                         {
  5098.                             mindist=dist;
  5099.                             M.Fill_Color[k][0]=c1=m;
  5100.                             M.Fill_Color[k][1]=c2=n;
  5101.                         }
  5102.                     }
  5103.                 }
  5104.                 if(Fpout&&iop!=1)
  5105.                     fprintf(Fpout," %8s %8s %s\n",
  5106.                         M.Color_Name[c1],M.Color_Name[c2],M.Fill_Name[k]);
  5107.             }
  5108.         }
  5109.         if(M.Fill_In==3)
  5110.         {
  5111.             for(k=1;k<=M.Max_Fill;k++)
  5112.             {        
  5113.                 i=M.Fill_Color_IHS[k][0];
  5114.                 h=M.Fill_Color_IHS[k][1];
  5115.                 s=M.Fill_Color_IHS[k][2];
  5116.                 if(Fpout&&iop!=1)
  5117.                     fprintf(Fpout,"%3d %5.2f %3d %5.2f   ",k,i,h,s);
  5118.                 for(j=0;j<3;j++)
  5119.                 {
  5120.                     rgb[j]=MaxHues[h][j];
  5121.                     rgb[j]+=(255.0-rgb[j])*(1.0-s);
  5122.                     rgb[j]*=i;
  5123.                     if(rgb[j]<0.0)
  5124.                         rgb[j]=0.0;
  5125.                     if(rgb[j]>255.0)
  5126.                         rgb[j]=255.0;
  5127.                     if(Fpout&&iop!=1)
  5128.                         fprintf(Fpout,"%3.0f ",rgb[j]);
  5129.                 }
  5130.                 r0=M.lut[k+16].r=rgb[0];
  5131.                 g0=M.lut[k+16].g=rgb[1];
  5132.                 b0=M.lut[k+16].b=rgb[2];
  5133.                 mindist=16777216;
  5134.                 for(m=0;m<MAX_COLORS;m++)
  5135.                 {
  5136.                     for(n=m;n<MAX_COLORS;n++)
  5137.                     {
  5138.                         r=(long)(M.Color_Val[m][0]+M.Color_Val[n][0])/2;
  5139.                         g=(long)(M.Color_Val[m][1]+M.Color_Val[n][1])/2;
  5140.                         b=(long)(M.Color_Val[m][2]+M.Color_Val[n][2])/2;
  5141.                         dist=(r-r0)*(r-r0)+(g-g0)*(g-g0)+(b-b0)*(b-b0);
  5142.                         if(dist<mindist&&m!=M.Back&&n!=M.Back)
  5143.                         {
  5144.                             mindist=dist;
  5145.                             M.Fill_Color[k][0]=c1=m;
  5146.                             M.Fill_Color[k][1]=c2=n;
  5147.                         }
  5148.                     }
  5149.                 }
  5150.                 if(Fpout&&iop!=1)
  5151.                     fprintf(Fpout," %8s %8s %s\n",
  5152.                         M.Color_Name[c1],M.Color_Name[c2],M.Fill_Name[k]);
  5153.             }
  5154.         }
  5155.         for(k=0;k<256;k++)
  5156.         {
  5157.             if(M.lut[k].r>128||M.lut[k].g>128||M.lut[k].b>160)
  5158.                 M.Comp_Color[k]=M.Black;
  5159.             else
  5160.                 M.Comp_Color[k]=M.White;
  5161.         }
  5162.     }
  5163.     WritePalette(M.lut); 
  5164. }
  5165.  
  5166.  
  5167.